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HISTORICAL PERSPECTIVE = 



FORTH was created by Mr. Charles H. Moore in 
1969 at the National Radio Astronomy Observatory, 
Charlottesville, VA. It was created out of dissatisfaction 
with available programming tools, especially for ob- 
servatory automation. 

Mr. Moore and several associates formed FORTH, 
Inc. in 1 973 for the purpose of licensing and support of 
the FORTH Operating System and Programming Lang- 
uage, and to supply application programming to meet 
customers' unique requirements. 

The Forth Interest Group is centered in Northern 
California; although our membership of 1 100 is world- 
wide. It was formed in 1978 by FORTH programmers to 
encourage use of the language by the interchange of 
ideas through seminars and publications. 



Busy, busy, busy. That's what its been for the last 
couple of months. Here are some of the things that have 
been happening. 



1. We've reorganized the order processing for the 
mail order items listed on the last page. The volume 
has increased so much thts year that we had gotten 
several months behind. Now. its alt being handled 
at one location and we even have a phone number 
for checking on your orders (41 5) 962-8653, If you 
have technical questions DO NOT CALL, wnte to 
the box number so that your request can be routed 
to the most helpful person 

2. We can now take VISA and Master Charge orders 
by mail and by phone, (41 5) 962-8653 The charge 
on your monthly statement will be Itsted as "Mt. 
View Press", This was done because FIG isn't set 
up to handle charges. We still aren't ready to handle 
purchase orders or delayed billings. 

3. The August issue of Byte magazine has put FORTH 
ON THE MAP. We are receiving 50-60 orders and 
requests for information a day. We have a supply of 
the issue and can furnish them to you (see the Mail 
Order form on the last page). 

4. This Issue of FORTH DIMENSIONS has 60 pages 
and includes all the CASES that were submitted. 
Don't get your hopes up for more FD's this long. 
Next month we go back to our regular size. Congrat- 
ulations to all entrants! 

5. Two events are coming up soon. The FORML Ad- 
vanced Conference will be held November 26-28, 
1980 at Asilomar Conference Grounds, CA. The 
National FORTH Interest Group Convention will be 
held on November 29, 1 980 at San Mateo. CA. See 
Page 94 for more information and to register. 



My thanks to the Judges and Editorial Review Board 
for all the help they have given me on this BIG issue. 
Without their assistance, much of it done late at night, 
you wouldn't be reading this issue for months to come. 
Many thanks! 



Roy Martens 
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=-CASE CONTEST CLOSES= 



This issue of FORTH DIMENSIONS is 
another special issue, chiefly devoted 
to fig's case Statement Contest. The 
contest, announced in FD 1/5, Jan. /Feb. 
1980, brought entries from sixteen 
individuals and tean^, showintg a high 
level of interest and activity among 
the membership. 

All the entries are puolished here. 
They show imaginative thinking and hard 
work, and illustrate the many different 
ways that FORTH allows the user to 
implement a single concept. Although 
no one entry seemed to get it all 
together, many show some very good 
work. 

Our panel of judges did not settle 
on a single winner, but instead have 
decided that the prize will be shared 
among three entries . These are Dr. 
Charles E. Eaker, Steve Munson, and the 
team of Karl Bochert and Dave Lion. 

Each of these winners will receive a 
$50 prize and a one year subscription 
to Infoworld. The high interest in the 
contest has justified increasing the 
overall prize from the $100 announced 
(including $50 contributed by FORTH, 
Inc.) to $150. Infoworld kindly 
donated the subscriptions. 

Baker's entry is particularly well 
organized, and has a clear, readable 
writeup. He implemented a keyed CASE 
statement, and uses non-obvious words. 
(See below for the difference between 
positional and keyed CASE statements.) 

Munson put so much thought into the 
contest that he included several 
versions, differing in the type of data 
that keys the CASE statement, and in 
keyed versus positional ordering of 
cases. 

Bochert and Lion submitted a neat 
positional entry. It includes the 
ability to alter the binding of cases 
to case bodies after compile time. 



The judging was based on a variety 
of factors: 

1 . the approach taken , includ ing 
degree of generality; 

2. the success and efficiency of 
the implementation, e.g. , a 
minimum of comput a t ion and 
dictionary use should be left to 
execution time; 

3. PORTH-like style, including good 
documentation on the screens; 

4. overal 1 prose description, 
together with an evaluation of 
the advantages and 1 imi tat ions 
of the afproach or implementa- 
tion; 

5. adequacy and clarity of exam- 
ples. 

However, the judging did not involve 
loading and testing the entries on a 
running FORTH system. 

The judges felt that most entrants 
were not getting close enough to what 
is possible in FXDRTH. They seemed to 
think along narrow lines. A general 
CASE implementation should be efficient 
both for the positional case (where the 
values tested are restricted to the 
first N integers, for example, similar 
to FORTRAN'S computed QO-TO), and for 
the general "keyed" case , where a 
value, not necessarily an integer, is 
tested against a sequence of explicit 
vcdues. Very few people tried to solve 
both. 

This collection of contest entries 
make this issue of FD an excellent 
source for the comparative study of 
iirplementation techniques . Interested 
FORTH students should read each entry 
to pick up helpful techniques and 
evaluate style. (Caution: Any entry 
may also show poor techniques and weak 
style.) 

Forth Dimensions welcomes more 
contributors. 
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JUST IN CASE 



Dr. Charles E. Eaker 



Even though FDRTH provides a variety 
of program cxxitrol structures, a CASE 
structure typically has not been one of 
them . There is no pa r t i cul ar reason 
for this since r as we shall soon see, 
it is not difficult to implement 
one. 

Hiere are two different approaches 
one can take to implementing a CASE 
structure : vectored jumps and nested 
IF • . . ELSE . . . THEN structures . Vectored 
jumps provide the greatest speed at 
run- time but produce enormous conpiling 
ooinplications. So, taking the path of 
least resistance, here is a proposal 
for implementing a CASE structure for 
POPTH which is really just a substitute 
for nested IF structures . But , even 
though the proposal is logically 
redundant, there are a number of 
practical benefits vAiich make it worthy 
of consideration. 

To help this discussion, consider a 
word which might c5)pear in an assembler 
vocabulary with a glossary entry as 
follcvs: 

GEN operand, opcode, mode selector — 

Used by the ASSEMBLER vocabulary 
to generate opcodes. 'Mode selector' 
is the value which indicates which 
addressing mode has been specified. 
'Opcode' is the value placed on the 
stack by the preceding mnemonic, and 
•operand* is the value to be used as 
the argument of the opcode. 



Here is one way of coding GEN. 



: GEN OVER = 

IF DROP IMMEDIATE 
ELSE 10 OVER = 
IF DROP DIRECT 
ELSE 20 OVER = 
IF DROP INDEXED 
EI£E 30 OVER = 
IF DROP EXTENDED 
ELSE DROP MODE-ERROR 
ENDIF 
EUDIF 
ENDIF 
ENDIF RESET ; 

GEN is defined to expect a 16--bit 
number on top of the stack. For each 
IF, this number, the "select value," is 
copied and tested against a ccaistant, 
the "case value." If the select value 
equals the case value the appropriate 
code is executed. If all tests fail, 
MODE-ERROR is executed. Notice that 
GEN meticulously keeps the stack 
clean. 

Depending on the select value, 
some action is performed on the opcode 
and operand, and GEN removes them from 
the stack. Consequently, before each 
test, GEN must copy (OVER) the select 
value, and if the test is successful, 
the select value must be dropped from 
the stack to expose the data values 
prior to the appropriate routine being 
called. 

But wouldn't you rather code this 
thing this way? 

: GEN CASE 

OF MiEDIATE ENDOF 

10 OF DIRECT ENDOF 

20 OF INDEXED ENDOF 

30 EXTENDED ENDOF 
MODE-ERROR 

ENDCASE RESET ; 

It is certainly easier to see vi*iat 
this routine is doing, so ccmroents are 
not as necessary, and changes and 
repairs are far easier to do. Here are 
the required colon definitions of CASE, 
OP, EMDOF, and ENDCASE. 
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:as£: :':omp csp^ :c5p a ; immediate 

;F a ?PAIPS CCflPILE OVER CCf'PILE • COMPILE CBRANCH 

HEBE : . COMPILE DRJP 5 ; IMMEDIATE 

ESDCr ^FAIRS :^MPILS BRANCH HERE , 

S'^AP 2 ;C0MP:L£; SNOrF 4 : IMMEDIATE 

ENDCX5E 4 7PA1BS CCMPILC 01*0P 
Z : S 5Pi ^S? i * C- 

■«H1LE 2 tCCnPILE; ENDIF REPEAT 
ZS? : IMMEDIATE 



It SO happens that with these 
iefinitions both versions of GEN 
compile the identical code into 
tne dictionary . Let * s look at the 
compiling details. 

CASE makes sure that it is in a 
?ol on definit ion . The n it saves t±ie 
value of CSP (which contains the 
position of the stack at the beginning 
of this case structure ) and sets CSP 
equal to the present pos i t ion of the 
stack. The new value of CSP will be 
jsed later by ENDCASE to resolve 
forward references. Finally, it throws 
3 four onto the stack which will be 
jsed for checking syntax . CASE ccm- 
piles no code into the dictionary. 

OF first checks that it has been 
preceded either by CASE or an ENIX)F. 
I f th^ syntax is in order , then code 
IS compiled into the dictionary to 
duplicate the select value (OVER) 
and test its equality to the current 
case value ( = ) . Next, code for a 
conditional branch is compiled into the 
dictionary followed by oode for DROP. 
Notice that at run-time the DROP is 
executed only if the select value 
equals the constant for this OF...ENDOF 
pair. 

ENDOF first checks that an OF has 
gone before. If so, then it oonpiles 
an absolute branch to whatever code 
follows ENDCASE. However, the address 
to branch to is not yet known, so a 



dummy null is compiled into the address 
and its location is left on the stack 
so ENDCASE will knew where to stick the 
address once it is known. But there is 
already an address on the stack j ust 
under the one which ENDOF iust pushed. 
This address was left by OF and it 
points to an address that should hold a 
branch address to the code wh ich 
follows the oode generated by EMX)F. 
So, ENDOF swaps the addresses and calls 
ENDIF to resolve the address at the 
address left by OF. Finally, ENDOF 
leaves a four on the stack for syntax 
checking. 

ENDCASE makes sure it has been 
preceded by either a CASE or ENDOF. 
Otherwise an error message is issued 
and compilation is aborted. Code for 
a DROP is compiled into the dictionary, 
then all the unresolved forward 
branches left by each ENDOF are 
resolved. Since there may be any 
number of them, including none, ENDCASE 
checks the current stack position 
against what it was when CASE was 
executed, and performs a fixup by 
calling ENDIF until the stack no longer 
contains addresses left by previous 
ENDOF' s. Notice that all of these 
branches are resolved to point to the 
code after the DROP generated by 
ENDCASE. In the case of GEN this is 
RESET. 

It doesn ' t take long to not ice 
that OF generates an enormous amount of 
code (10 bytes). This is a classic 
example of a situation that cries out 
for a machine language primitive. If a 
run-time word could be defined, let's 
call it (OF), then each OF would 
generate just 4 bytes two to point to 
(OF) and two for the branch address. 
What (OF) would have to do is pull the 
top stack item (the current case value) 
and test it for equality with the new 
tc^ stack item (the select value) If 
the test for equality is true then the 
next item on the stack the select 
value is also popped and execution 
cxxitinues after the (OF) If the test 
is false execution branches using the 
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branch value following the pointer to 
(OF), and the select value is left on 
the stack. 

CODE (0?) A PUL D PUL T S X 

i.x a SUB o,x \ sac asa o» 

IF INS INS ' BRANCH CfA (. HCX , il ♦ Jt\? 
THEN * aPANCH CFA ? J.MP 
: CF 4 7PAIBS COMPILE (Of) HERE , S ; IViMEDIATE 

The M6800 code listed above is 
straightforward except that is uses 
code in BRANCH and OBRANCH. (OF) 
should work in any FIG 6800 installa- 
tion provided BRANCH and OBRANCH have 
not been altered (it doesn't matter 
where they are located ) . Non-6800 
users will have to roll their own, but 
the high-level OF should make it clear 
what has to be done. 

The disadvantages of this CASE 
proposal are that execution is not as 
fast as a vectored implementation, and 
in some versions of FORTH , ENDOF and 
ENDI F cannot be distingui shed . The se 
seem minor compared to the advantages - 
and there are several. 

First, a CASE statement may contain 
any number of OF... ENDOF pairs, and the 
constants may be arranged in any order 
whatever. Actually the constants need 
not be constants. Between an ENDOF and 
the next OF the programmer may insert 
as much code as he or she likes in- 
cluding code which will compute the 
value of the "constant." CASE state- 
ments may be nested; a CASE. • .ENDCASE 
pair may appear between an Cf*...aJDOF 
pair. Furthermore, there need not be 
any code between CASE and ENDCASE, nor 
must there be code between OF and 
ENDOF. There must be code v*ich pushes 
a 16-bit number to the stack prior to 
each OF, Finally, this proposal 
follows the fig-FCRTH style of handling 
control structures. 

f ig-FORTH GLOSSARY 

CASE addr n (oonpiling) 



Used in a colon de f in i t ion in t he 
form: CASE. . .OF. . .ENDOF. . .ENDCASE. 
Note that OF... ENDOF pairs nay be 
repeated as necessary. 

At compile-time CASE saves the 
current value of CSP and resets it to 
the current position of the stack. 
This infornnation is used by ENDCASE to 
resolve forward references left on the 
stack by any ENDOF * s which precede 
it. n is left for subsequent error 
checking. 

CASE has no run- time ef f ects . 

OF addr n (compiling) 

nl n2 nl (if no match ) 

nl n2 (if there is a match) 

Used in a colon definition in the 
form: CASE. . .OF. . .ENDOF. . .ENDCASE. 
Note that OF... ENDOF pairs may be 
repeated as necessairy. 

At run-time, OF checks nl and n2 
for equality. If equal, nl and n2 are 
both dropped from the stack , and 
execution continues to the next ENDOF. 
If not equal, only n2 is dropped, and 
execution jumps to vAiatever follows the 
next ENDOF. 

At compile-time, OF emplaces (OF) 
and reserves space for an offset at 
addr. addr is used by EMXF to resolve 
the offset. n is used for error 
checking. 



ENDOF addrl nl addr2 n2 (compiling) 

Used in a colon definition in the 
form : CASE . . . OF . . . ENDOF . . . ENDCASE . 
Note that OF. . .ENDOF pairs may be 
repeated as necessary. 

At run-time, EMX)F transfers control 
to the code following the next ENDCASE 
provided there was a match at the last 
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OF. If there was not a match at the 
last OF, ENDOF is the location to v*iich 
execution will branch. 

At compi le-time ENDOF emplaces 
BRANCH reserving a branch offset, 
leaves the address addr2 and n2 for 
error checking . ENDOF also resolves 
the pending forward branch from OF by 
calculating the offset from addrl to 
HERE and storing it at addrl. 

WDCPSE addrl. . .addrn n — (compiling) 

n ( if no match) 

— ( if match was found ) 

Used in a colon definition in the 
form: CASE. . .OF. . .ENDOF. . .ENDCASE. 
Note that OF. . .ENDOF pairs may be 
repeated as necessary. 

At run-time, ENDCASE drops the 
select value if it does not equal any 
case values. ENDCASE then serves as 
the destination of forward branches 
from all previous ENDOF 's. 

At compile-time, ENDCASE conpiles 
a DROP then computes forward branch 
offsets until all addresses left by 
pr ev ious ENDOF ' s have been resolved . 
Finally, the value of CSP saved by CASE 
is restored. n is used for error 
checking . 

(OF) nl n2 nl (if no match) 

nl n2 — (if there is a match) 

The run-time procedure conpiled by 
OF. See the description of the run- 
time behavior of OP. 



Dr. Charles E. Eaker 
Department of PhilosojAiy 
State University of New York 
Oswego, NY 13126 



Judges' Comments - 



This is an excellent development and 
presentation of a key case statement 
with single integer keys. The follow- 
ing features make it immediately 
useful: 

1. The reader can easily understand 
v^tiat the statement does and how 
to use it. There are only four 
words to learn, their functions 
are immediately clear from the 
example presented and their 
names are not confused with each 
other. (The ENDOF - ENDIF 
similarity will go away when the 
FIG model drops ENDIF in favor 
of the Standards Team decision 
to use THEN.) 

2. One form of the statement can be 
entered entirely in nigher-level 
fig-PORTH, and run immediately 
on any FIG system. An optional 
code word (for 6800 ) with 
redefinition of one of the 
four higher-level words saves 
run- time memory and time . 
Either way, the v*iole statement 
fits easily on one screen, 
including compile-time diecking. 

3. Hie narrative documentation is 
excellent. Hie glossary defi- 
nitions are detailed ( appro- 
priate for this forum). For 
general distribution they could 
be condensed to user-only 
infontation. 

This entry presents one kind of case 
statement out of several that are 
desired* We hope that this can?)etent 
and straightforward work will serve as 
a model to future development. 



COME TO FIG CONVENTION NOVEMBER 29 
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THE : CASE 

Steve Munson 



2BOTBCASE 



GLOSSARY EOTRIES 



Having grown up on an ancient 
version of FX3RTH Inc. micro FORTH, I 
can appreciate the improvements ren- 
dered by fig-FORTH's renames and 
redefinitions. I was particularly 
impressed by the source equivalence of 
HERE NUMBER DROP which functions the 
same although in one case one is 
dropping the address of the first 
non-numeric delimiter, and in the other 
case one is dropping the most signi- 
ficant half of a double precision 
number! 

My one beef is why was : made 
IMMEDIATE? Surely nobody wants a 
header in the middle of a colon defi- 
nition. By the way, as you probably 
already know, this tends to mask an 
error in the definition of ; on the 
listing I have for the 6502 fig - 
FORTH. There is no [COMPILE] before 
the [ which means carpi le mode is never 
terminated. In fact, I am not sure I 
see the point of the E property in your 
glossary. All words ought to be 
designed, at great pains if necessary, 
so that they can be compiled. My 
definition of CASE denies the E pro- 
perty of : , and I would be rash to 
assume no one would ever want to 
compile CASE. 

Please find enclosed a listing, 
documentation, glossary entries, and a 
diskette. T!he diskette also contains 
the assembler used to generate the 
code, as it may be nonstandard If the 
fig-FX3RTH does not run on your system 
as it does on mine, feel free to edit 
my ideas into polished fig-FORTH (I am 
a novice figger) and re-list the 
screens; however I believe they will 
require no modification. 



Keycase defining word, used in the 
form: 

2BYrBCASE cccc key case key. 
case, . . . key case (default 
caser END-CASE. "Defined cccc as a 
caseword v^iich expects a 2-byte key 
on the stack at run- time. If the 
key equals key^ (a 2-byte key), 
case^ (a previously defined word) 
will execute; if it matches key, , 
case, will execute, and so on. 
The aefault case will execute 
on no match; if no default is 
specified, NOOP is assumed. Cases 
may be IMMEDIATE words, but no 
compile-time execution will occur 
within the case structure. The 
structure must be terminated by 
END-CASE. (See END-CASE, BYTE- 
CASE). 

BYTECASE 

Keycase defining word, used in the 
form: 

BYTBCASE cccc key case key, 
case, • . . key^ case En6-CASE. 
Defines cccc as a caseword which 
expects a 1-byte key (most signi- 
ficant byte is ignored) on the 
stack at run-time. If the key 
equals key (a 1-byte key), case 
(a previously defined word) will 
execute; if it equals key, , case^ 
will execute, and so on. Th5 
default case will execute on no 
match; if no default is specified, 
NOOP is assumed. Cases may be 
IMMEDIATE words, but no conpile-tiiWi 
execution will occur within the case 
structure. The structure must bi- 
terminated by END-CASE. See 
END-CASE, CASE). 
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CASE 

Case def in ing word , used in the 
form: 

CASE cccc case case, . . . 
case (default case ) END-CASE . 
Defines cccc as a caseword which 
expects a 1-byte key (most signi- 
ficant byte is ignored) on the stack 
at run- time . If the index is 0, 
case ( a previously defined word) 
will execute ; if index is 1 , case, 
executes , and so on. NOOP cases 
must be inserted for unused values 
of the index; index limit is 65 , 
535 , No protection is made for 
out-of- range ind ices or stack 
underflow. CASE remains in conpile 
mode ( by calling : ) until termi- 
nated by END-CASE. (See END-CASE). 

D0-2BYTBCASE P, C + 



structure identical to that of CASE, 
all inline within a colon defini- 
tion . Used in the form : : cccc 
optional words ; . The cases and 
run- time activity are exactly as 
described for CASE. (See CASE, 
END-CASE). 

DO-STRINGCASE P, C + 

Copy glossary entry for D0-2BYrE- 
CASE, substituting STRINGCASE for 
2BYrBCASE everywhere. 

END-CASE P 

Uhiversal caseword delimiter. It 
has no run- time activity, but at 
canpile-time it may fill in an "exit 
address" (inline caseword), and/or a 
case count ( keycaseword ) , or termi- 
nate compile mode (CASE, inline CASE 
for COTE definitions). 



Compiles a reference to the run-time 
procedure of the same name , a 
two-byte "exit address", a one-byte 
case count and case structure 
identical to that of 2BYrECASE, all 
inline within a colon definition. 
Used in the form: : cccc optional 
words D0-2BYTECASE key case 
key, case, . . . key case (de- 
faiflt caie) END-ci?SE oj^tional 
words ; . The keys, cases and 
run-time activity are exactly as 
described for 2BYTECASE. (See 
2BYrECASE, EtJlXASE) . 

DO-BYTBCASE P, C + 

Copy glossary entry above, substi- 
tuting BYTECASE for 2BYTECASE 
everywhere. 

DO-CASE P, C + 

Compiles a reference to the run- tine 
procedure of the same name, a 
two-byte "exit address", and a case 



STOINGCASE 

Keycase defining word , used in the 
form: 

STRINGCASE cccc key case 
key, case, . . . key case (de- 
fault case) END-CA^. Defines 
cccc as a caseword which expects a 
byte-string beginning at HERE 1+ 
with a count of them at HERE (typi- 
cally fetched by WORD) at run-time. 
If the string equals key (any 
byte-string of 1 to 255 charaSters), 
case^ ( a previously defined word ) 
will execute; if it equals key,, 
case, executes, and so on. Tne 
default case will execute on no 
match; if no default is specified, 
NOOP is assumed. Cases may be 
IMMEDIATE words, but no compile- time 
execution will occur within the case 
structure. Wie structure must be 
terminated by END-CASE. (See 
END-CASE). 
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Explanation of Screens by Number 

100-102 : To enable the loading of a 
screen, delete the leftmost paren- 
thesis • For all screens above 108, 
109 must be loaded* Some screens 
load others that they require, hence 
loading all screens will cause some 
to be loaded twice • If it is not 
des ir ed to load al 1 the examples , 
edit DECIMAL ;S on the same line 
of any screen in which the word 
(EXAMPLE) appears on a line by 
itself. 

103 : END-CASE is an example of a 
terminator (or a leader , or any 
structure ) that is common to all 
members of some group (in this 
instance, casewords). The structure 
can be identical for all members of 
the group only because it behaves 
slightly differently to each of 
them. END-CASE accomplishes this by 
following a binary tree. At each 
node a flag variable is tested and 
code common to the branch taken is 
executed. All members of the group 
( each caseword ) must set or reset 
the flag variables that must be 
tested to complete the execution of 
all their compile-time code. 

END-CASE must be expanded for each 
new class of casewords that use it 
as a common compi le- 1 ime termina- 
tor. Uiis is done by creating a new 
flag variable that is 1 only for 
members of the new class. The 
affected casewords are then amended 
to set or reset this variable (at 
compi le-time ) depend ing on their 
membership in the class, and the new 
variable is tested in END-CASE. So 
f ar , I have included only two 
classes: the unique, indexed CASE, 
and the keycasewords • Each is 
further sub-divided into defining 
word and inl ine forms . Note that 



STATE can serve as a flag for this 
distinction, providing that the case 
defining word executes outside oi a 
colon definition, and the inline 
form does not. Instead of using a 
binary tree (nested IF tests) with a 
new flag variable required for each 
branch, consider using a caseword 
inside END^ASE , i tsel f , to acccn- 
plish an n-way branch based on the 
value of a single variable! 

105 : CASE is the simplest form of. 
n-way branch. It compiles a string 
of consecutive ccdef ield addresses 
(CPA's) exactly like the parameter 
field of a colon definition. The : 
on line 3 creates the header and 
sets compile mode, END-CASE termi- 
nates compile mode. Whereas the 
CPA's in a colon definition execute 
sequentially, only one CFA will 
execute each time a CASE is called. 
It expects an index on the run-time 
stack? if it is the first CFA 
executes, if is 1 the second CFA 
executes, and so on. No protection 
is made for out-of-range ind ices . 
Credit for the basic form of CASE 
goes to J. B. Weems, also of Hughes 
Aircraft, Pullerton. 

106-107 : Each caseword is presented 
in three forms : a ; CODE defining 
word, a <BUILDS DOES> defining word, 
and an inline version. The inline 
version is perhaps closest to 
ordinary usage, the OUIIiDS DOES> 
defining casewords are machine 
independent and easiest to modify, 
and the ;CODE defining casewords 
are , in al 1 cases , the fastest . 
Ihis is because they take advantage 
of the available system pointer W 
(which is set by NEXT) in order to 
index into the parameter field of 
the case structure; whereas the 
inline casewords must move IP be^^ond 
the case structure after using it to 



Page 43 



FORTH DIMENSIONS II/3 



select a case. Note that the inline 
case words are not defining words, 
and so do not require an auxiliary 
name for the case structure. 

The method of putting the CFA to be 
executed into W and jumping to 
the last half of NEXT (which fetches 
the code address and puts it into 
the program counter) , is based on 
the word EXECUTE as a model. The 
"NEXT 6 + JMP" used here is source 
truncation for space purposes. It 
assumes that no insertions are made 
m the beginning of NEXT (an inser- 
tion in NEXT might be forgivable if 
short and forbidden to execute at 
run-time, or if turned on momen- 
tarily by an EXEVAR). In such a 
case, the safe thing (and in any 
case, the fast thing) to do is to 
copy the code for the last half of 
NEXT (however it appears on your 
machine), rather than jumping to 
it. 

108 ; A curious hybrid of high-level 
inside a CODE definition. DO-CASE 
is really a macro that compiles code 
similar to that executed by the 
inline version. Note that if the 
stack is 0, and DO-CASE executes 
one of the cases, execution will not 
return to 3TEST, but to the word 
cal 1 ing 3TEST ( that is , the HPUSH 
JMP will not execute). There is no 
danger of name confusion because the 
two DO-CASE ' s are in separate 
vocabularies. 

109-110 ; A keycase is so called 
because it requires a key associated 
with each CFA in the case structure. 
A key of the same type must be 
supplied at run- time. If a matdies 
a key in the caseword, the associ- 
ated CFA will be executed. Uhless a 
match is guaranteed, a default CFA 
is required which is executed on no 



match. It>e default may be a NOOP, a 
pop of the parameter stack, or even 
a link to another caseword. The 
default case is optional, if none is 
specified, ,CFA compiles a reference 
to NOOP, automatically. 

The structure of a keycaseword is as 
follows : 

COUNTT KEY^ CFA^ KEY, CFA, 
^ ^ default ^ 

... KEY CFA^ CFA 
n n 

Where count is the number of cases 
(default excluded), and CFA is the 
CFA that will be executecT if the 
run-time key matches KEY^. The count 
is not supplied by the programmer; it 
is determined autanatically by , KEYCASE 
by counting the number of cases till 
E2TO-CASE at compile-time. The HERE 
C, on line 13 reserves space for the 
count, and it is filled in by EIJD-CASE. 
Ihe 1+ after the BEGIN on line 14 is 
incrementing the case count on the 
stack. The compiled count will be 
picked up at run-time to become a DO 
LOOP index. When the index runs to 
0, it indicates that the list of 
cases is exhausted, and the defualt 
address is to be followed. 

Just under this count, on the stack, 
is a flag that indicates whether the 
prograitmer has not supplied a default 
case. It starts at on line 13, may 
be changed to 1 by line 4, and is 
tested on line 11. 

All of the keycasewords, as written, 
resexrve only one byte for the count of 
the number of cases. Hence, one is 
limited to 255 cases per case structure 
(0 is not allowed, either). However, 
keys need not be ccHisecutive or ordered 
in any fashion, as are the indices for 
CASE. Keys may be 1, 2, or n bytes 
depending on the kind of caseword; 
CPA's are 2 bytes. 



In addition, inline case words 
compile a 2-byte address in front of 
the count . This "ex it address" 
points to the first byte beyond the 
end of the case structure . This 
address is put into IP so that exe- 
cution may resume after a case has 
executed. Case defining words do not 
need this because IP already points 
corr ec t ly ; W is u se d to scan the case 
structure . 

The 1 = IF on lines 1 and 9 is 
testing for NULL ( al ias X ) . NULL 
cannot perform its usual function of 
resetting IN, incrementng BLK, and 
terminating the loading of a screen . 
Hie reason is that ,CFA uses ' CFA , 
which is capable of compiling a refer*- 
ence to even an IMMEDIATE word. This 
has the advantage that an IMMEDIATE 
word can be called as a case, but no 
oonpile-time execution is permitted in 
the middle of a case structure. Lines 
1 and 9 perform part of the definition 
of NULL if one is detected. Not that 
the test assumes 8080 byte order; 
on some machines, the test for NULL 
would be 0100 = IF. If, on your 
system, a block equals a screen, all 
the testing for NULL may be deleted. 

rKEYCASE is designed so that one or 
more keys, CFA's, default, or £24D-CASE 
may be on any given line. A key need 
not even be on the same line as the 
associated CFA. Do not skip lines in 
the middle of a case definition. Keys 
and CFA*s must alternate, the exception 
is the default CFA which has no key. 

,XKEY on line 7, is a da-my which is 
called by ,KEYCASE where it reserves 2 
bytes which will be filled in at 
compile-tiroe when a particular caseword 
executes (lines 8 and 9 on screen 111, 
for example). The CONSTANT ,XKEy-ADDR 
defined on line 6 is set to point to 
the two bytes reserved in ,KEyCASE so 



that a reference to a ,KEY apprc^riate 
to a given keycaseword may be stored 
there (by IKEY , for example). A more 
elegant solut ion , beyond the scope o f 
this document, would be to make ,XKEY 
an EXEVT^ , a variable whose value is 
assumed to be a CFA, and which i s 
executed rather than fetched, llKEY , 
i2KEY , etc., would then be used to set 
the EXEVAR to ' ,1KEY CFA or ' ,2KEY 
CFA. 

NOWSAVE and RECOVER are needed 
because by the time END-CASE is encoun- 
tered, one has typically al ready 
compiled the default case as a key 
instead of a CFA. This is because it 
breaks the pattern of KEY CFA , KEY 
CFA. And in any case , in order to 
recognize END-CASE, we must advance the 
input pointer beyond it, and it is 
convenient to restore it so that 
END-CASE can execute and perform its 
compile-time activity. RECOVER is, 
then, a way to un-compile and un- 
interpret vkxat has been done. 

The endless loop of line 14 is 
teminated by the R> DROP on line 10 
when END-CASE is encountered. This 
assumes that ,KEYCASE will always call 
,CFA directly. 

Ill ; Line 10: BYTECASE is a typical 
8080 ;CODE defining word. "HEADER 
I IKEY ,KEYCASE" is the compile-time 
activity, and the macro RUN-BYTECASE 
compiles the run-time code. The 
run-time code must leave W pointing at 
a case CFA or the default CFA, and then 
execute that CFA. 

Warning: if your ASSEMBLER does 
not specifically define BEGIN as HERE 
(non-IMMEDIATE) , then you will fall 
through the ASSEMBLER into FORTH and 
find : BEGIN HERE ? IMMEDIATE. TtiiS 
version will not work in macros, 
because you want to caiipiie a reference 
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to BEGIN that will execute when the 
[T\acro executes. 

Note how simply each key is paired 
with the word to execute upon matching 
the key (32 TWO, for example). The 
only punctuation needed is spaces (the 
number of spaces is not important) . 

112 : It is interesting that 5TEST does 
not behave exactly like 4TEST. They 
are designed so that pressing the 
terminal key "0" selects ;S to be 
executed. Because <BUILDS DOES> is 
nigh-level , it has an extra level an 
the return stack; hence, the endless 
loop on 1 ine 13 does not exit , but 
screen 111 returns to the terminal with 
"OK" . 

Calling the colon definition "R> R> 
DROP DROP" from 112 would have the 
same effect as calling the code ;S from 
111. 

113: Note that the inl ine code is 6 
instructions longer than the run-time 
code of the defining word. These 
instructions pick up the "exit address" 
which was given space at compile time 
by the "HERE , "on line 7, and 
filled in by EM)-CASE. 

114 ; Same idea as 111, but a two-byte 
key is expected on the stack. The low 
byte is in L and high byte is in H. 
Compare the "," on line 12 with the 
"C," of 111 line 8. 

115-117 ; Sel f-explanatory . 

118 ; Stringcase uses variable- length 
keys (up to 255 bytes). At run-time it 
expects bytes beginning at HERE 1+ with 
a count of them at HERE. It will match 
this string against its keys, executing 
the associated CFA if a match occurs. 
Ttvere is no restriction that the bytes 
must be printable ASCII, but you may 



find it hard to edit anything else into 
a screen. Source numbers may be used 
as keys, but they will be treated as 
character strings; the run-time is also 
a byte string , it is not normal ly 
placed on the stack even if it is a 
number. 

The run-time code has two loops. 
The outer one is counting down the 
number of cases; the inner one has an 
index equal to the byte-count of a key 
plus one ( the count, itself, is con- 
pared). Saved on the stack is IP and 
the address of the next key in the case 
structure (computed from W plus the 
byte-count plus 3) 

119 : One application of STRINGCASE is 
as a compact language translator. The 
string key is the input word, and the 
word executed by the associated CFA is 
the translation . Such an associat ion 
is faster than a colon definition 
equating the two, because IP is not 
saved on the return stack, or restored. 

The cases of a stringcase constitute 
a sort of vocabulary, but the structure 
is more compact than an ord inary 
d ict ionary because it lacks link 
fields, code fields, and terminators. 
The arithmetic that advances W from one 
case to the next is almost as fast as 
following a dictionary link, and the 
code for RUN-STRINGCASE compares 
favorably with (FIND). It is hard to 
imagine a FORTH - like language trans- 
lator that would be faster or more 
ocnipact. 

120 ; High-level version of 118. Ihe 
two nested loops are still there as DO 
UOOPS, the address of the next case is 
saved on the return stack between the 
loc^, and the two pointers to the two 
byte-strings are on the parameter 
stack. 

121-122 ; Self-explanatory. 
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123 ; Itie word called by the default 
case is exactly like INTERPRET except 
that is does not need to do a BL WORD 
because the string is already at HERE, 
and it is not an endless loop (so that 
it lOTERPRET's only one word). 

GERflAN IS, then, a STRINGCASE that 
will, first, attempt to translate a 
word, but if it is not in its vocabu- 
lary , it will INTE RPRET i t normal 1 y . 
The endless loop taken away from 
INTERPRET is given to TRANSLATE which 
is then substituted for INTERPRET in 
the definition of LOAD (it could also 
be substituted in the definition of 
QUIT). 

If one now load s a screen with 
TLOAD, it should compile nonnally, with 
the addition that EIN, ZWEI, and DREI 
will be understood as re-names, and 
executed iimed lately. In order to be a 
true translating interpreter, the IX)ES> 
part of STRINGCASE must be extended to 
respect compile mode by testing STATE, 
and either conpile the CFA or execute 
the CFA, depending. 

Note that ;S calls itself as a 
case. This is not only a way to find 
;S, the interpreter would not stop at 
either ;S or NULL (it would, of course, 
stop at an undefined). Tne reason is 
that there is not an extra level on the 
return stack ( namely, TRANSLATE ) 
between the equivalent of IDAD (TLOAD), 
and the equivalent of INTERPRET 
(DEFAULT) . Hence, executing ;S from 
DEFAULT is sufficient, to end the 
execution of GERMAN, but not of TRANS- 
LATE (which will inevitably call GERMAN 
again). However, calling ;S as a case, 
since it is a CODE definition, will end 
the execution of TRANSLATE, and return 
eventually to the terminal with "OK", 
But if one had used the <BUILDS DOES> 
version of STRINGCASE, there would, 
again, be an extra level on the return 
stack, and ;S would again fail. In 
this case, ;S would have to call a word 
whose definition is R> R> DROP DROP 
( see explanation of screen 112 ) . 



Another possible kind of keycase 
might be called BITCASE, where the key 
is a mask, and the associated CFA 
executes i f the mask AND * ed wi th the 
value on the stack ^ 0. The flag 
variables and compile-time code would 
be identical with BYTECASE; the run-- 
time code would simply do an AND 
instead of an XOR, and a = NOT 
instead of = . The casewords 
presented here by no means exhaust 
the possibil ities . The structure 
is del iberately left open-ended to 
encourage user creativity. 

Note that BITCASE, BYTECASE, 2BVTE~ 
CASE, and STRINGCASE all differ in 
name-length to avoid confusion on 
WIOTH-3 systems even when prefixed by 
DO- or RUN- . 

Keycases have the property that they 
can be chained together through their 
default addresses ( the key can be 
c±ianged at this point, as well). This 
makes possible complex , high-level 
sturctures in which casewords feed 
other kinds of casewords. This is a 
tree with n brances at each node (a 
pattern similar to human brain cells). 

With two default CFA's one could 
put keycasewords into 2-link structures 
sudi as binary trees. Furthermore, any 
CFA, including the default case, can be 
an EXEVAR (see explanation of screen 
109), allowing the structure of the 
tree to change dynamically at run-time. 



;S Steve nunson 

Hug lies Aircraft Company 
Fullerton, CA 92634 

Judges' Comments - An interesting ap- 
roach to error control, by making : 
IMMEDIATE a part of error control. If 
a preceding ; is missing, due to mis- 
editing, : will be encountered in com- 
pile mode. It executes but contains 
?EXEC, which produces an error message 
if compiling. A little confusing but 
it works. 
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6 U INX, U INT, IP rC^:, THEN, ELiE. ' IP NO MAT IS. 

7 W INX. >M INX. U INX. IP DCR, THEN. * ''0 "^JE'T "A^E 

-: 0- END. IP POP. EL-JE --E" :p- 

aCHO. M W :+ :10V. H INX- M \4 "*0V. ( PIC*' JP CPA. 

iO XCHO. NEXT + ..IMF. , FORTH DEF IN1 1" ION'S • EXECUTE 'IP- 



1 : 

12 . 2r£Y ♦fJUMEER . , 
'2\-£i . 2i EY CPA 

14 2EVTECAiE HEADER 
DECIMAL — > 



. X} EY-fircp 

21 EV , K'EVC^ 



COMPILE A 2-::tTE 

PUT . ;j ey irj -Zi 

ODE ^ON-:;:t*-!'ECA:E 



< -:e'jild3 doe?: 'iTr:noca-£-e defininc. •■ic^z- • heii 

.■;>Ey HERE C'2 1+ ALLOT . : COMSILE A i.TRINO ►£,■ ) 

.' Sf-cY ' . SKEY CPA >X> EV-ACCR ' . ^ ^-'-'^ , Ev IN ,KEVCA'£E. 

STPINiC'CAiE ::uiLCf 'itEY .t-EiCAiE DOEr 

• HERE OVER 1* ROT ce C' DO DO » OF :^'Z'. 

OOP L'jp * ? * :r pup ca i+ i;* do ■ lAve \ext ■'.a;- 

OVER C-1 OVER C« = IF 1+ iWAP 1+ !UAP i COMFAPE pv-^ 

EL=.E DROP :;POP HERE LEAVE ENDIF LOOP IF tATCH Z<\,>rr 

Z'iJF IF R^ PRCP LEAVE EL!E DF CP ^\ EfJDlF Ar<t'=: ELrE I-C 

LOOP -iwAP DROR « EXECVTE ( '0 r^E/ ^ :A:£ 

ccci.MAL — 



1 i 
:4 



2BYTECAiE OEFiniraO WORD, 
TEiT POR -£-CPE£^j : :4 ' 



ONE 



EXAMPLE ■ 

THREE 



( ;E<JILDi DOE'l:: ■t.TRINOCA-£E DEFINIMO LJORD. lON^ kE * 

TE.ST FOR iCPEcN 1 2'.'' 

( EXAMPLE ) 

OttE 1 TWO 2 . . THREE DEF^iJL : ■» 



5 2B>TECA-£.E 7p i 

■i 0111 ONE 

- 7TE;T 

3 DECIMAL . i 

10 



222 TWO 

"P I r.y 



iTRIMOCAfE OERM 
EIN ONE ruE 



10 

1 1 



TRANSLATE 
DEC IMriL . z- 



DREI THREE ITEFAULT Ef.T'-CA-fE 
E.L ulORD GERMAN ■ 



f CBUILDS DO£S> 2EYTECASE DEFININO WORD HEX 
, 2KEY »NUMEeR . . < COMPILE A 2-rYTE ^Ev 

t2tEY , 2KEY CPA , XKEY-ADDR ' - f PUT , 2KEY IN .^ E r'CAi 



2EVTECA:=.E 'GUILDS ' EY , K'EYCAiE DiT'ESl 
DLtP I* 3WAP Cft DO OVER OVER « * IP 

2* LEAVE EL'JE 4 ENDIF LOOP 
SWAP DROP « EXECUTE , 



( DOES ::.AM£ THINC- 
< Ai. CODE C'N 114, i 
( COMPARE? 50TH 
pyTE5 AT ONCE / 



CtNE 



1 



( EXAMPLE ' 
TWO 2 . THREE 



2BYTECASE S:PICK 

0111 ONE 0222 TWO 
STESr >-'PICK 
DEC I r^AL . -5 



THREE DEFAULT 



: DEFAULT 4 
END-CASE 



( IN-LINE 'STPirJOCAi-E Mp?RD 
1 l;S LOAD HEX 



CODE DO-=-TRlNOCA?E 
H IN/. M IP MOV. 

DC-STRir*iCA:^E 
COliR-ILE DO-JTRINO 



IP H '^OV IF 1+ L MO'-V 
X C HO . PJJfJ- C TP I r jC- C Ai.£ ' 



( EXAMPLE ' 

THREE 



M !P I* MO' 
•EE MACCC iC 



TRANSLATE EL WORD DO-STRI "lOCA £ E 
EIN ONE ZWEI TWO DREI THFEE DEFC 
DECIMAL . S 



* IN-LirJE 2BYTECA-;.e '-OPD ^ 
114 LOAD HEX 

CODE D0-2E:YT£CA:£.E IP H 'lOV IP 1+ L MOV- M IP 1+ MC'/ 

H IN/. M IP MOV. XCHO, RW-2EyTECA;SE ( :EE MACRO iCP 114^ 



D0-2E>TECA£.E 
COMPILE D0-2SYTECA:i£ HERE . 



ONE 1 
v-TEST 
DECIMAL . 



E . IMMEDIATE 
DEFAULT 4 



DO-2SYTECA:5£ 
'HREE . DEFAULT 



01 :i ONE ':i222 TWO 
cND-CAiE 4 



1 1 



t iTRINC'CASE DEPININO WORD- ( STRINO 
AJiEMELtR DEFINITIONS 

ftUW-?TRINOCA-i£ IP C'U'IH. W INX, 
U LDAX, A IP MOV. W :NX. 
U LDAX. A INR, A IP 1+ MOV, 
A L MOV, W A MOV. if ADC 
H INX, H INX, H PUSH. 
DP ( RUNTIME HERE'/ LHLD. 



4 


BEOIN. 
















EEOIN, 






to 

1 1 




12 


XCHO. 


1 1 


XCHO, 


14 


DECIMAL 



rEYS HEX 

( SAVE IP ON ST.:.C* ■■ 
. IP a )r OF CA?ES 
•J 1+ ADD. ■ IP 1+ -) 
A H .lOV. ' BYTE COUNT ■ 
I STACK " riExT CASci? 
( H « RUN-TIME '-(£=£) 



W LDAX. U INX. M XRA. H INX, 0« IF. ' BYTE? » " > 
IP 1* Dt:R. SWAP * AT COMPILE TIME) 0* END, '■ AijAUJ,- 
H POP. HERE S ^ JMP. THEN, ■ THROW AW^.v ADD= 

W POP. IP DCR, 0» END. IP POP. ( ELSE 00 '•aE. T CA£E) 
M 1+ MOV. H INX, .M >t MOV ■: PICK UP CPA ■ 

NEXT * .JMP , FORTH DEFINITIONS JUMP TO ^tE:J' 



( EXAMPLE OF A TRhNSLATINO INTEFrPE'EP ME ( 
DEFAULT HERE CONTEXT > * 'FIND* 2UF * IF ' * ; 
DR'DP HERE LATEST 'FIND' ENDIF ' aIITHOUT CES 
IP 3TATE a : IF CFA . ELHE CPA EXECU'^E EriDiF 

Else here nume-er dpl « i* :p c compile: dlite=al 

ELSE DROP CCOMPILEl LITERAL ENirP *STACI 
ENDIF , 

STftlN«jCA?E OERMAN 

EIN iDNE :WEI TWO DREI THFEE ■ S I DE-AULT 



AL:0 ^ 
■ LfiC'S' 
ITL UOP D ■ 



10 

11 

12 



TRANSLATE 



SEOIN 3L WORD 



TLOAD ELK 9 :>R IN > IR 
IN ' B/SCP ♦ ?LK. ' 

TRANSLATE R: IN ' RI' 



SAME %S i_:t,.D 
SUT TPAN!LA~ 

^OR :riT£--cE 



COME TO FIG CONVENTION 
NOVEMBER 29 
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A PROPOSED CASE 
STATEMENT FOR FORTH 

Karl Bochert/Dave Lion 



General Description 

Ihe CASE statement suggested here is 
done in high level code for the 
6800 version of fig-FORTH, It may 
have to have some minor changes in 
order to conform to the FORTH-79 
standard. The names of the words 
were chosen for descriptive value . 

The word that initiates the set 
of cases is: 



CASE 



Following that are as many sets of: 



<forth code> ENDCASE 



as needed to represent all the desired 
cases which are to be executed. The 
first se t is for case , and each 
successive set is for the next higher 
case number. After the last set comes 
the terminating set: 



<forth code> ENDCASES 



which indicates the default code to 
be executed if the case number is 
outside the legal limits. It also 
marks the end of all of the cases^ 
and causes the look-up table to be 
compiled. Word (CASE) , which is 
the run-time word, is surrounded by 
parentheses accord ing to f ig-FORTH 
convention, indicating that it is 
normally never typed in by the user. 



At run-time word (CASE) uses one 
integer parameter from the data stack 
and leaves none. The given parameter 
specifies which one of many cascG 
will be executed. A single case is 
defined as a set of FORTH words which 
is preceded by the word CASE or END- 
CASE, and followed by the word ENDCASE 
or ENDCASES. Within a single case, the 
usual rules of pairing still apply to 
the words: DO, LOOP, IF, ELSE, THEN, 
BEGIN, AGAIN, WHILE, REPEAT. That is, 
they must be properly matched with each 
other. 

Case will be executed if the 
parameter is 0, case 1 if it is 1, 
etc. The parameter will normally be in 
the range : thru ( # of cases ) -1 . 
Thus, the case function works like the 
cottputed GOTO found in some versions of 
BASIC, with the exception that this 
code is in-line. 



Advantages 

CASE is very coni^actly compiled, so 
the number of 16-bit words of overhead 
is 2 * (# of cases +1) + 3. This 
excludes the code within each of the 
cases, but includes the ;S which 
follows each case. The following use 
of the CASE function , having 3 empty 
cases and an empty default case will 
compile as 22 bytes of code: 



CASE 

ENDCASE 
ENDCASE 
ENDCASE 

WDCASES 



Here, it should be pointed out that 
the CASE function is only used within a 
definition, and the above sample is 
part of a definition. 



FCBTH DIMENSIONS II/3 



Page 50 



More Advantages 

CASE statements have little overhead 
run- time code. In the FIG model this 
version of (CASE) executes 41 FORTH 
words, 37 of which are code words. 
Ihis may be shortened by leaving out 
the two protective features , thus 
executing 25 words, 22 of which are 
code words. The fastest method takes 
about 0.002 seconds to execute. 



after a ;S . Appropriate comments for 
patching are included in the definition 
of (CASE) . 

The way to find out \^*iich type of 
FORTH machine you are using is: 

: PI R ; 
: P2 PI ; 

P2 P2 - . 

FORGET PI 



There is practically no limit upon 
the number of cases that may be com- 
piled. The table of pointers will 
contain an address for each case plus 
an address for the default case . 

Two protective functions in word 
(CASE) will handle negative numbers 
and numbers that are too high. For 
negative numbers , the equivalent 
positive case is executed. For 
numbers too high, a default case is 
executed. It should also be noted 
that any intermed ia te case that will 
never be executed still needs an 
ENDCASE, but the compiled code will 
contain only a ;S . The default 
case may be left out, and will then 
compile like an empty case. 

One additional feature to point 
out is that CASE statements may be 
nested much the same way as 'DO' loops 
can. 



Disadvantages 

There is one machine dependent 
factor that must be considered before 
installing these words. Since we fool 
around with return addresses in the 
return stack, we must know whether the 
return stack of the machine stacks 
'return to' addresses or 'came from' 
addresses. The former is the situation 
where the address is not incremented 
before doing the first fetch after a 
;S . The latter type of machine (my 
6800 version) does do a pre- increment 



The printout will be for the 'came 
from' type of FORTH machine, and 2 for 
the 'return to' type. 

Another thing to watch out for is 
that v*iile inside a CASE statement you 
no longer have access to any loop 
counter ( I ) which was created outside 
the CASE statement. During execution 
of the chosen case there is one extra 
address on the return stack, covering 
up what was there. 

Compiled Structure 

Note: Each line shows the ccxitents of 
one 16-bit wonJ of manory except 
for the lines within braces: 
, which signify any amount of 
memory, including none, which nay 
contain FORTH instructions. 

(CASE) ( ttl* pointftc to cod* Clcld z6dz9%% of (CASE) 
pointer to end > 



( cast t a 



;S 



IS 



( cas* I 1 



I case « 2 



II etc. 
I case * 

I 



(d«Cault code} 
{ • i 

tS 

pointer to default 
pointer to case n 
I : : etc. : : : : 
polRC«c to case 2 
pointer to case I 
pointer to case 
ptr to default ptr 



>- * 



This part 
contains 
-the code 
for the 
casts 



This part is the 
-look up table* 
and does not 
contain any 
FORTH words 



* Any case code may be left out. Hie 
resultant case segment will have 
only a ;S in it. 
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The Result is: 



Definitions for 6800 Fig-FX3PTH 



\QkSt) 
KBS 
R> 
2* 

• DUP 

2* 

>R 

SWAP I* DUP 
OVCR SWAP 

SWAP 9 
HAX 

2 - 
>R ; 



{ th« run-tla« function 

{ # aakt sure paraii«ttf is * 

{ 9tt addrtsa of pointer to tabla 

( delctt this line for 'raturn to' nachinas 

( qat polntat to tabla 
add this Xin9 for 'return to' sachinas <*■ 

( save final retjrn aJdrass 

• ( find addresses into table of the . 

{ I highest legal case 

{ and the desired caae .... 

( I then choose the .... 

{ t &«st one 

( read table entry for chosen case 

( delate this line for 'return to' «acliin«t 

{ stacK it i ' return' to it 



.10TE; the iinaa marked 'T may be deleted to speed up eicecutlon 
while sacrificing protection. 



:ase 

COHPILE (CASE) 

neitc , 

XMMCOIATe 



CONVIte ;S 
BCR£ 

I IHMC0IAT£ 
C0NPIL2 ;S 



>R 



iERC 

DUP 
IP 

3CGIN 

, OUP 0- 
END 

DROP 
OUP 
2* , 

UEAE SWAP 1 
R> 

IMMEDIATe 



coApiXc the run-ttme executor 
inlt table pointer i get its addr 
stack a marker on data stack 



( and of a case 

( stack a ptr. to next case 



{ this word writes the look'Up t«bl« 

( end of default case 

( put pointer for default case Into table 

( teaporariiy save addr of pntr to C4S«(nl 

{ look for case[01 

( didn't find marker* so: 

( store pntrs to cas«(nl thru caa«(ll 

( until reaching the aarkac 

( drop the marker 

1 dup the pfa 

[ store pntr to caaefO) 

< data stack is down to I item: the pfa 

( store this addr into pfa 

( fetch addr of ptr to highest normal case 



TEST-WORD ( typed by human) 

-4 default case 

-3 default case 

-2 This is the case # 2 code 

-1 

This is the case # code 
1 

2 This is the case # 2 code 

3 default case 

4 default case 
OK 

Time Trials ; 

Here we find out how long it takes 
to get to the proper case. The CPU 
clock is set at l.OOO MHz, The word 
(CASE) was defined leaving out the 
protection features. Hien the follow- 
ing definitions for timing loops are 
tried, executing null cases which do 
nothing. 100,000 loops are timed: 

DEC INAL 

: INNER 1000 DO 1 CASE ENOCASE ENDCASC ENDCASE ENDCASES LOOP 

: SPEED X" 100 DO INNER LOOP X" ; 

SPCCO XX OK { this was 210 seconds on the 6800 FORTH ] 

1000,000 loops are timed, leaving out 
the CASE portion: 

: IMNERJ 1000 DO LOOP ; 

I SPEED 2 X* 100 00 INriER2 LOOP X* : 
SFeCD2 XX OX t this was 13 seconds on the 6800 PORTVi ' 

Thus, it can be seen that it takes 
about 2 milliseconds to vector to 
the desired case if the two protection 
features are left out. Putting in the 
protection would increase the time to 
about 3.5 n6ec. 



A Test of the 'CASE' Functicffi: 



rtST-tfORO 

;r 

i *4 ( try a range of paraaetcrs, some of which are illegal ) 

30 

I DUP . ( preceed each line with the case • being tried ) 
CASE 

.* This is the casa I code* ENDCASC 

( — case «1 does nothing ) ENDCASE 

.* Ttois is the caae « 2 code* CNOCASC 

.* default case" 

mcAscs 

{ do the nest ca«e on a new line ) 

lOOP 1 



Karl Bochert 
Dave Lion 

Los Altos, CA 94022 

Judges' Ccranents - 

Karl and Dave were the only entry 
to make provision for pre-incrementing 
and post- incrementing versions of 
ICXT, This refers to when the inter- 
pretive pointer IP is advanced within 
UEXT. They give a test to check your 
system. This version uses a compiled 
table of indexes to give minimum 
execution time . Hie style and docu- 
mentation is to be complimented . 
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CASE AND PROD 
CONSTRUCTS = 



Steve Brecher 



CAS EOF 

www CASE www £5AC 



www CASE www ESAC 
OTRERWISE www 
ENOCASEOF 



t or more CASE/ESAC pairs 
•llow«d, at Itast 2 pairs 
for seovant ic sens* . ] 

[ OTHERWISE option*!] 



WWW Stand s for 0+ Forth words, 
possibly incl ud ing complete case 
expression [s] , these possibly still 
further nested. But code represented 
by www can make no net change to the 
return stack, as the case selector 
value is stored there . Runtime : 
CASEOF pops, saves top of compute stack 
as selector. CASE pops, tests top of 
stack vs. selector; if =, executes 
words up to next ESAC followed by words 
after Ea^DCASECF. If <>, executes words 
after next ESAC. OTHERWISE is optional 
for readability. SELECTOR used any- 
where between CASEOF and ENDCASEOF 
leaves the selector value, provided no 
net change has been made to the return 
stack since CASEOF; SELECTOR is an 
alias for 'R'.) 



31 CONSTANT 



: CASEOF 



CASSYNTX (Error 
number, case construct 
syntax ) 



( -> 4 . Pronounced *c«ic of, aftfr Pa^iceX.) 
COMPILE >R ( to ««lector £cr testing by CASED 

{ tnd-of-d«ca signal to ENCCASEOD 

4 ( For CASE syntax check) ; 



IMMEDIATE 



CODE CASEBRANCH 



( n -> . Forth branch 
to the offset 
following inline if 
n <> @RP, else bump 
IP over offset . 
Compiled by CASE. ) 

S )+ RP ( ) CMP, 



?CASE ( nl n2 -> . Compile- 

time check for 
nl=n2. If fail 
issue syntax error) 

<> IF CASSYNTX ERROR 

ENDIF ; 

CASE ( 4 -> addr 5 . 

Executes ?CASE 
syntax check; 
compiles CASEBRANCH 
with a zero offset; 
pushes address of 
offset so ESAC can 
fix it later; pushes 
5 syn tax check 
signal. ) 

4 KA5t \ Syntax crieckj 

COMPILE CASEBRANCH 



itSRC ( Push addreis oi ofCse:: so L2AC cai parc^ i\) 

. ( ESAC will charge the to ♦offset foe CA^SEdRANCH) 

S ( for eSAC syntax checic ) ; 



IMMEDIATE 
: ESAC 



( addrl 5 -> addr2 
4 . Pronounced 
"eesack" ; "case" 
spel led backward . 
Executes ?CASE 
syntax check; fixes 
the offset at addrl 
so the CASEBRANCH 
there will branch to 
the code after ESAC; 
compiles BRANCH with 
a offset, pushes 
the address of the 
offset so ENDCASEOF 
can fix it later; 
leaves 4 for syntax 
check by later 
word.) 



5 7CASE 



( SyntAX checic ) 

I ELSe will b« chtckinq for this) 
( Stse fixes CASE offset, pushes addr 
of offset Lt compiles with BRA:fCili 
24- I ( tL3C l«av«S 2* CASC/07B£RWISS/eNDCAS£0F w4nt 4) 



(COHFIUl ELSE 



ME XP« 

IP (f I? ADO* 
NEXT, CMDXr, 

IP )♦ TST, 

NEXT, C: 



( If n <> tRP« ) 

( Add inline offset eo IP) 

{ «nd "branch" ) 

( tl»e buap IP over inline offset) 

I «nd continue there,) 



IMMEDIA1E 
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OTHERWISE 



IMMEDIATE 



ENDCASEOF 



( 4 -> 4 . For 
readability, 
optionally written 
after last ESAC to 
identify code which 
is executed if no 
cases match. 
Pe r f o rms compi 1 e- 
time checks.) 

?COMP 

4 ?CASE 



addrl addr2 . . . 
addrn 4 -> 
addrx is the addr of 
an inline offset 
following a BRA^X:H 
compiled by an ESAC. 
Executes ?CASE 
syntax check; on 
the stack is an 
end-of-data signal 
which was pushed by 
CASEOF; For each 
CASE... ESAC, patches 
the offset at addrx 
so that the BRANCH 
compiled by ESAC 
will branch to the 
R>DROP which END- 
C AS EOF compiles . ) 

4 ?CASE ( Syntax check) 



thcrt's a nonzero offset on stack) 
ENOIF will be checking for this) 
CNDIF will compute, eaplsce offset) 



REPEAT 

code drops case 



value from R stack) 



BEGIN -DUP WHILE 
3 

[COMPILE ) ENOIf 



COMPILE lt>DROP ; 

IMMEDIATE 
ALIAS SELECTOR 



( PRODS/PROD/DCRP/CATCHAL/ENOPROOS are ar.aloqous to 
CA5E0P/CASB/ESAC/0TSCRMISE/EN0CASE0P except there 
Is no selector valjet each PROD tests for tf on stack. 



33 CONSTAirr 
I PROOS 



IMMEDIATE 
I 7 PROD 



INMCOtATg 
t WDMOOS 



IMRCOIATt 



PIUJSniTX { Error nuaber* production set syntax) 

( -> 6 . Coapila-tiae setup for PROD set.) 

< end-of-data sl9nal to CNDPROOS) 

1 t ( roc PROD syntax check) 



( fil n2 -> . ) 

<> IP pitosmTx 



ERROR END I? 



< -> addc 
7PK00 



« I 



( addrl addr2 . 
C 7PR0D 

SBCIll -OUP IfBILC 
2 

tCOHPILC] EMDIP 
RCPEAT t 



Steve Brecher 
Software Supply 
Long Beach, CA 

Judges' Comments - 

This entry supports essentially the 
same syntax and semantics as the 
PORTH-85 CASE statement (see FD 1/5), 
but offers the following advantages: 

1. Compile-time syntax checking. 

2. Explicit OTHERWISE clause, 

3. Case selector is kept on return 
stack instead of in a special 
variable. This allows nesting of 
CASE constructs. 

4. 16-bit branch offsets are used, 
rather than a mixture of 16-bit 
addresses and 8-bit offsets. 
This eliminates the need for a 
special run-time END-CASE word and 
siiT5>lifies compilation. 



NEW PRODUCT 



Z'80 



We have a Z-BO implementation of 
FIG-FORTH that was derived directly from 
8080 FIG-FORTH 1.1 and will run under 
either CP/M or Cromemco CDOS* The code 
is optomized to exploit the additional 
Z-80 registers and instructions. 

Although this was developed for our own 
internal use we are willing to make it 
available at cost to interested FIG 
members. For $25*00 to cover media, 
copying, and shipping, we will send two 
soft- sectored single density eight inch 
diskettes containing executable Z-80 
FORTH interpreter, all source files, and 
sample FORTH programs. Payment may be 
sent by check or money order to the 
address below. Please allow us 30 days 
for shipment. LABORATORY MICROSYSTEMS, 
4147 Beethoven Street, Los Angeles, CA 

90066, (213) 390-9292. 



addrn S -> ) 

( Syntax chtck.) 

( th«c**« a nonz«ro offset of stack) 
( CMDtF will b« cfcwckLnq Coc this) 
( E»Dir vill coaiputs, siKplact offset) 
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A CASE STATEMENT 



Mike Brothers 



Approx imately a year ago I was 
writing a program and needed a more 
powe r f u 1 branch i ng con s t r act ion than 
the standard IF. .ELSE, .ENDIF con- 
struction. Somehow I decided on 
implementing Pascal's CASE statement in 
FORTH, and this is the one which is 
described here. This CASE statement is 
also included in the standard SL5 
package, available from the Stackworks. 

Some of the advantages of SL5's 
CASE statement are: 



Execution 

Upon entry, a number corresponding 
to the case is assumed to be on the 
stack. "$CASE" then places ADDRl on 
the return stack. ExpressionAl is then 
executed, and compares the value 

on the tos (top of stack) with the nos 
(next on stack) , which should be the 
entry value. If these are equal, the 
entry value is dropped and ExpressionA2 
is executed before sets the 

interpreter pointer to ADDRl (which is 
on the return stack) . If the two 
values are not equal , " $= : " sets 
the IP to addrB and execution continues 
until a valid case is found or the 
cases are exhausted, which causes ADDRl 
to be removed from the return stack and 
the entry value dropped. 



1) Infinite nesting is possible. 

2) The CODE is machine independent. 

3 ) Prog rams are easier to re ad 
because of its simpl icity . 



The word "NOCASE" always causes 
the $=: to execute the following 
expression, simply by setting the tos 
equal to the entry value. 

Examples of CASE statement usage 



CASE statement definitions 



$CASB 1> OCT 2 • SVAF 9 >t >R : 
Om • IT 
DtOP &> 2 • >ft 
CL31 t> 9 >R 
mil ; 

$;; B> NOT ; : NOCASE DOT ; 

Ci5E \ %CASt HEII . ; 

\ 9«: KEU , ; 
;; \ BEIE SVAf I ; 

CAStsm \ t> \ ictor urn swap i 



IKiaDlATE 
IMMEDUTC 
IMMtOUIE 
IKMEOUn 



Conpilation 

During compilation, "CASE" corrpiles 
the address of "$CASE" and a for the 
address field. Every subsequent 
causes "$=:" to be compiled along with 
a dummy address field (to be set by 
the next "?;"). The word then 
compiles "$;;" and replaces the address 
field of the previous "=:" with addrx. 
When "CASEND" is finally processed, the 
scmething resembling figure 2 should be 
present. 



I 9CASI I I ADDU I 



a44tA: ExpraisioaAl I I I «ddrB I cxpr«tfieaA2 I t 
•Adrl: ExpcattiooBl I $": I 1 addrC I •JLpT«*sion92 I I 



EXAMPLCl BEGIN 
CBOtCE? " 



NOCASe 
CASEND 
£N3 ; 



QCH CASE 
APPLE ' 
BLUEBERSY " 
CHERRY " 
DATE * 
ELOERBEftFY 
: WRONG " 



t A IS fcr APPLE ) 

t 3 IS tor BLUEBC^l i 

; C IS for CHERRY ) 

( is Cor DATE ) 

{ E iS tor CLOCSSERPy ) 

t rep««t till valid ) 



Figure 3. Exaniple of CASt stattinent usage 



CASE Statement example 

The example shown above illustrates 
the CASE Statement's simplicity and 
power. When EXAMPLE 1 is executed, a 
character is read from the keyboard. 
If the character is an "A", the string 
"APPLE" is displayed. If the character 
is a "B", the string "BLUEBERRY" 
is shown. If none of the five are 
selected , the string "WRONG" is 



aUtli CxpreatioftTl I t I UAtl 1 •Kprts«ionT2 I I 
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displayed and the loop is executed 
again until a valid (A-E) choice is 
entered . 

The COND Statement 

One particular advantage of the 
case statenvent is that an additional 
branching structure which executed 
an expression based on a boolean 
expression can be defined with a few 
more words. I call this structure the 
COND statement, and the extra words 
needed are shown in figure 3. The 
structure is much like that of the CASE 
statement, as shown in the example in 
figure 4. 

: COND COMPILE CASE ; IMMEDIATE 
: CONDEND \ R> \ 2DR0P HER: SWAP : ; IMMEDIATE 
: $: : IF 

R> 2 >R 

EtSC R> i >R 
END IF ; 

: : : \ 5 : : HERE , ; IMMEDIATE 

Fiqur* 4. COND stiteT.ent definitions 



: EXAMPLE 3 CONO 

OOP 0> : : T" POSITIVE" j ; 
OUP 0- : t T* ZERO' i ; 
1 tit* NEGATIVE' J ; 

CONOENO ; 

ri9uc< i. Exaoplts of COND stac*mcnt usa9* 

The COND Exanple 

The Example ^own above illustrates 
the similarity between the OOND con- 
struction and the CASE statement. Upon 
entry to EXAMPLE2 , an integer is 
assumed to be on the stack. One of 
the strings "POSITIVE", "ZERO", or 
"NEGATIVE" is displayed d^nding on 
the integer. 

Mike Brothers 
The Stackworks 
Blooming ton, IN 47401 

Judges' Comments - This is a practi- 
cal method but not as portable as it 
might appear. The 2+ in $CASE and $=: 
will have to be relocated for preincre- 
menting 6800 systems. The COND state- 
ment is a nice variation on CASE. 



NEW PRODUCT 

FORTH FOR CP/M 



Mitchell E. Tirain Engineering Co. 
has an enhanced version of FIG FORTH 
ready for immediate delivery. It is 
supplied on an 8 in, single density 
diskette, ready to run on any system 
with CP/M and at least 2^K of memory. A 
FORTH style editor with 20 commands is 
included, as well as a virtual memory 
sub-system for software which is 
permanently stored on diskettes, then 
loaded when needed. The user may also 
make permanent additions to the resident 
FORTH vocabulary. A Z-80/8080 assembler 
is also included, allowing the user to 
create new FORTH definitions which 
compile directly into machine code. All 
Z-80 or 8080 instructions may be used. 

The IF... ELSE... , BEGIN. UNTILL , and 
BEGIN. . .WHILE. . . control structures may 
be included in assembler definitions; 
these will automatically compile into 
appropriate machine code. 

Other enhancements include an 
interleaved disk format that minimizes 
the time required for disk access. A 
1 024 byte disk block may be read or 
written in as little as 1/6 second. 

Eight of these blocks are maintained in 
RAM for immediate access and 
automatically swapped with others on the 
disk as they are needed. 

The price is $75 for the 8 in. 
single density version, $90 for other 
diskette formats. Adequate 
documentation is included, suitable for 
the beginner as well as the experienced 
computer user. 

FIG FORTH was originally defined by 
the FORTH INTEREST GROUP and is very 
close to the FORTH-79 international 
standard ♦ 

Mitchel E. Timin Engineering Co., 
9575 Genesse Avenue, Suite E-2 , San 
Diego, CA 92121. 
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DO-CASE STATEMENT 



Dwight K. Elvey 



OVERVIEW OF STATEMENT: 

This is a DO-CASE written in FIG 
FORTH. It allows the operations of 
statements on the condition of a match 
of a case value and a case key. This 
DO-CASE also has a range case that 
allows the use of the condition to be 
done on a range of case key values. 
The NOT CASE and the NULL CASE concept 
are also allowed in this DO-CASE. 



SCR I 19 

{ DO-CASE ALSO COMPILE <^ • * -J LIKE COMPILE ) 

1 » 3 ) 

2 : COMPILE^. ?COnp BEGIN ft> OU? 2* >K 9 DOP * J Cf A « IP DROP 

3 1 ELSE , ENDXF UNTIL ; 
4 

S I DO-CASE COHPILE >R S ; IHHCOIATE 

« t CASE 5 rpAXJtS COMPILE < F • OBRANCE > HERE , 7 j IfmEDIA7E 

7 t RANGE-CASE 5 7PAIttS COMPILERS SWA? - 0< 0- OBRANCB > HERE , 

8 COHPILE Cr - 0< OBRANCH> HERE , HERE COMPILE BRANCA HZRt « 

9 HERE SMAP >R ROT >R R - R> 1 OVER - SWA? 1 R> 7 ; IMHEDIATE 

10 : ENO*CASE 7 ?PAIRS COMPILE BRANCH HERE . SVk? BCRC OVER * 

11 SWAP I SWAP 1* 5 ; IMHEDIATS 

12 t EMD-DO-CASE 5 ??AIR5 -CUP IP X HERE OVER - SWAP t LOOP 

13 ENDIP C0MPILECr> OROP3 ; IMMEDIATE ;$ 
14 

IS 



sex • 29 

( EXAMPLE or DO CASE ) 

1 J EXAMPLE DO-CASE 

3 4 CASE THE NUMBER WAS 4 * CR END-CASE 

3 5 3 RANQE-CASE THE NUMBER IS 3 OR 5 ' CR ENO-CASE 

4 6 CASE .* THE NUMBER IS 6 * CR ENO-CASE 

5 ( NOLL OB NOT CASE ) THE NUMBER ISN'T 3,4»5 OR 6 * CB 
( EMO-CASES ; ;S 

7 

S 

9 
10 
11 
12 
13 
14 
IS 



COME TO FIG CONVENTION 
NOVEMBER 29 



WHAT EACH DEFINITION FOR DO-CASE 
DOES: 

DO-CASE consumes the case key value to 
be used later by the individual 
cases. This is the initialization 
statement for a DO-CASE field, 

CASE does a camperison of the case key 
value and a case value. If a 
match is found the statements 
between CASE and the next END-CASE 
are done, then operation is picked 
up after the END-DO-CASE statement; 
el se ope rat ion continues after 
the END-CASE statement and continues 
until END-DO-CASE or the next 
successful case. 

RANGE-CASE does a comparison of the 
case key value and an inclusive 
range of values set by the two case 
values. Ihe first case value on the 
stack must be greater in value then 
the nex t case v al ue on the stack . 
The operation of RANGE-CASE is 
otherwise the same as CASE. 

END-CASE indicates that the conditional 
CASE or RANGE -CASE is ended. It 
must be paired with any use of CASE 
or RANGE-CASE. 

END-DO-CASE is used to close a DO-CASE 
* field. Its main purpose is to do 
the cleaning of the stack and 
provide an exit point for the CASE 
statements. DO-CASE must be paired 
with a closing END-DO-CASE. 

GLOSSARY ENTRIES 

CASE 

n (run-time) 

n — addr n (compile) 

Used in a colon-definition in the 

form: 

nil) 00-CASB ... n(2) CASE (Cp) ... END-CASE 

(fp) ... END-DO-CASE 
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At run-time a comparison of n(l) and 
n(2) is done. If there is a match 
the true part is executed, then 
execution resumes after END-IX)- 
CASE. If there is no match execu- 
tion continues at the false part 
(fp). It must be followed by an 
END-CASE and an END-DO-CASE. It 
must be preceded by a DO-CASE. 

At compile- time CASE compiles a 
branch and reserves space for an 
offset at addr. addr and n are used 
by END-CASE to resolve the offset 
and for error testing. 

DO-CASE 

n (run-time) 

nl n2 (conpile) 

Used in a colon-definition in the 
form: 

ndJ 00-CASe ... nil) CASE (CpJ ... END-CASE 

(fp) ... END-DO-CASE 

At run-time it consumes the value on 
the stack to be used later by case 
statements. Itiis is used to ini- 
tialize a do case field. See CASE 
for its use. 

At compile-time DO-CASE leaves a 
case count (nl) and a value for 
error testing (n2). 



END-CASE 



(run- time) 



nl addrl n2 «ddr2 n3 n4 (coapila^ 

At run-time it is used to terminate 
a CASE or RANGE-CASE Statement. See 
CASE or RANGE -CASE for its use. 

At conpile^time it takes a value for 
an error check ( nl ) , an address 
(addrl) to resolve an offset and a 
value that is the number of cases. 
It leaves a value for error checking 
(n4) , a value with a new case count 



( n3 = nl + 1 ) and an offset at 
address ( addr 2 ) to be used later • 

END-DO-CASE 

(run-time) 

»ddr( I) addr(2) ... addrinlj nl n2 

(compile) 

At run- time this termi nates a 
DO-CASE field. See DO-CASE or CASE 
for its use. 

At compile time it takes a case 
count (nl) and the count number of 
addresses to be used to resolve 
offsets and a value to use for error 
checking (n2). 

RANGE -CASE 

nl n2 - — (run-time) 
n addr n (compile) 

Used in a colon-definition in the 
form: 



n(i) 00-CASC ... n(2) n(3) RANGE-CASE (tp) 
... END-CASE (fp) ... ENO-DO-CASE 



At run-time a comparison of n(l) and 
the inclusive range of n(2) and n(3) 
is done. If there is a match the 
true part (tp) is executed, then 
execution resumes after END-DO-CASE . 
It must be preceded by a DO-CASE. 
n(2) must be greater than or equal 
to n(3) to do a successful case. 

At oompile-time RANGE-CASE compiles 
a branch and reserves space for an 
offset at addr. addr and n are used 
by END-CASE to resolve the offset 
and for error testing. 

EXAMPLE OF lEE: 

SCR # 29 is an example of the use of 
DO-CASE. It shows the use of CASE, 
RANGE-CASE and null or not-case. In 
order to use it type in SCR #19 
first then SCR #29. It is used by 
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typing a number, then EXAMPLE. The 
result will be a conparison of the 
number you typed and the comparisons 
done in the DO-CASE. 



FIG NORTHERN CALIFORNIA 
MONTHLY MEETING REPORT 



ADVAWTAGES AND DISADVAOTAGES : 



28 June 80 



The main d i sad vantage is that 
DO-CASE uses the return stack like 
DO ... LOOP does. This means that a 
value can not be passed on the 
R-stack from the outside of the 
DO-CASE field to the inside or 
vice-versa. Also this means that if 
the loop value I is to be used it 
must be on the operation stack 
before entering the DO-CASE. 

The advantages of this DO-CASE are 
that it has a RANGE-CASE and the 
ability to allow the concept of not 
or null-case. This allows it to be 
used for something like an input 
entering routine for something like 
an editor. The CASES can be used 
to prescan for special keys , the 
RANGE-CASES can be used as a capi- 
tals only routine and the null-case 
used to do the normal entry. 



I>vight K. Elvey 
Santa Cruz, CA 94065 

Judge's Comments - 

This entry performs the functions 
of the FORTH-85 CASE statement. It 
also provides compile- time syntax 
checking, allows a range of indices to 
be treated as a single case, and offers 
a "none-of-the-above" case. 

Compiling the same list of run- 
time words for each case results in 
excessive space overhead (about 28 
bytes for each RANGE-CASE). Defining 
some new run-t ime word s would save 
space without adding much execution 
time. 

Also, using " - 0<" to check the 
index against a range gives the wrong 
result if the subtraction overflows . 



FORML Session - 

Tom Zimmer described the product of 
his last two weeks effort - tinyPASC^\L 
(written in FORTH, of course). Two of 
his remarkable routines include the use 
of Ragsdale's table structure (C.F., 
Morse code tutorial, 24 May 80 FIG Meet- 
ing) in a Tokenizer and his technique 
of recursion uning dummy pointer-vari- 
ables. The PASCAL design came from a 
"Byte" (Sep-Nov 78) series of articles 
which instructed the reader to do it in 
BASIC. Tom's first version of PASCAL- 
under-FORTH occupies some forty blocks. 

FIG Meeting - 

Three technical talks were deliv- 
ered. Michael Perry described a CP/M 
File System written in FORTH which gives 
a 8080/Z80 version of FORTH compatibil- 
ity with and use of extant CP/M data 
files, 

Kim Harris spoke about arrays, i.e. 
how tables are created by alloting space 
to named variables and accessing array 
components by manipulating an index. 

Bill Ragsdale discussed database 
concepts after FORTH, Inc,*s poly- 
FORTH and the organization of fields 
within files. Their FORTH definitions 
and demonstrations of file manipulation 
"How to talk to mass storage". 

Announced was the availability of 
source code for FORTH on the 6809 run- 
ning under SWTPC's FLEX 1.9. This is 
copyrighted by Talbot and is available 
from FIG for $10, See order blank. 

Regarding FIG organizational busi- 
ness, two volunteers were asked to step 
forward - one to organize meetings, 
sequence schedules and distribute tasks 
(Ragsdale estimates 3 hrs/mo effort 
needed) and the other to take up the 
meeting announcement effort, 

; s Jay Melvin 
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=ACASE IMPLEMENTATION^ 



A sample of use is: 



William S. Emery 

Yet another CASE implementation , 
this for either the TI990 or the 
Motorola 6800. 

The objectives of this implementa- 
tion were: 

1. To provide a clear source 
program structure when using 
CASE, i.e. no compiler direc- 
tives. 

2. To provide a direct exit from 
any executed CASE to the next 
program statement. 

3. To provide an ELSE (or Trap) 
statement within the CASE 
structure . 

Please note: in both my 990 and 6800 
implementations of FORTH 
all compiled addresses 
are 16 bits. No relative 
addressing is used. 

The compiling word 'CASE creates a 
dictionary entry as follows: 

1. The code address of (CASE) . 

2. The source argument to be 
coqpared. This eliminates the 
compilation of LITERAL and the 
necessity of moving the argument 
to the stack. 

3. The branch address for I when 
not true. This is the address 
of the next CASE statement in 
the list. 



: TEST 

<CASE 1 FIRST" 
CASE 5 FIFTH" 
CASE 7 ." SEVENTH" 
EI5E . ."NOT VALID" 
CASE> ; 

At compile time <CASE places a 
zero delimeter on the stack, conpiles 
to the d ict ionary ( CASE ) , the source 
argument, and a nul, which will become 
the not true branch address. CASE 
then conpi les a standard ELSE, wh ich 
resolves the preceding not true, and 
deposits a nul address, to be resolved 
by CASE>. The address of this nul cell 
is left on the stack. Finally, CASE> 
resolves all addresses on the stack to 
itself until the opening nul is encoun- 
tered. 



CODE (CASE) ( TI990 ASSEMBLER } 

X )•»■ S ) C ( COMPARE ARGUMENT TO STACK ) 

0" ir 3 INCT I INCT ( POP STACK ENTER PROC ) 

ELSE X } I MOV { SET UP BRANCH AODR ) 

THEN NEXT 

I *CLSK \ (ELSE) SERE , HERE ROT 1 i 

t I, 32 WORO NUMBER , ; 

: 'CASE \ (CASE) t, BERE , t 

t <CASE 'CASE ; IMMEDIATE 

t CASE 'ELSE 'CASE IMMEDIATE 

I CA5E> BEGIN SERE SWAP • 70UP 0* END ; IMMEDIATE 



A dictionary map of the compiled 
source would be as follows: 



(lM«d«rs OBitttd - addresses in hmz } 

XXOO 0001 XX12 (.*) Sr ir ST (els*) XX44 

tXX2 (e«SS) 0005 XX24 (.*) SF If TH («ls«) XX44 

1X24 (CSSS) 0007 XX34 (.") 7S EV EN TB 

XX34 (•!••) XX44 (**} 9N OT bV AL 10 

tXU ( ; ) 



A ccmplete CASE statement requires 
three unique words: 

<CASE , pronounced "open case," 
CASE , pronounced "case," and 
CASE> , pronounced "case closed." 
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While using byte offset addressing 
for the branches would have saved .one 
or two bytes per CASE statement, to do 
so would violate the definition of word 
aligned dictionary established at the 
recent Standards Team meeting. 

The word incorporating the CASE 
paragraph is entered with any 16 bit 
value on the stack. Any CASE statement 
finding the stack eqiial to its argument 
pulls the entry from the stack. If no 
CASE statement matches the stack 
parameter the value remains for the 
ELSE statement, if used, or beyond the 
"case closed" point. 

This procedure executes ( and con- 
pi les) nicely on the byte oriented 
Motorola 6800 by using the following 
definition for (CASE). 



CODE (CASE) ( H6800 ASSEMBLES 1 

I LOX ) LDX M STX SA'/E ARGDMfM? ! 

TSX ) LDX N CPX . COMPAP.r TO STACK ) 

0- IP A PUL B PUL V POP STACK ; 

I LDX INX INX INX INX { ENTER PROC ^ 

ELSE I LDX 2 > LDX I STX ; SET BRAHCH ) 

THEN NEXT 



Thank you for the opportunity to 
submit this. I think the contest idea 
is a great one. How about some future 
contests on +LOOP, the Bartholdi "TO" 
concept and/or Data Structures. If 
publication space permits I * d also be 
interested in a competition on SORT 
and/or an approach to precompiled , 
relocatable FC»TH for v irtual memory 
processing. 



William S. Emery 
Costa Mesa, CA 92626 



Judges" Comments - This entry 
achieves its objectives with only 7 
short and well-factored new word 
definitions. The CODE word could have 
been written in high-level . While 
having to specify the case keys as 
numbers at compile time is a restric- 
tion, it is adequate for many applica- 
tions. And it does simplify the source 
code. 



FIG NORTHERN CALIFORNIA 
MONTHLY MEETING REPORT 



26 July 80 
FORML Session - 

Henry Laxon presented his string 
package which has been his first FORTH 
programming effort. He pointed out that 
this package was designed for a comput- 
erized type-setting task and not text 
editing. The word "string" takes a 
length parameter and name and is mani- 
pulated so to find , concatenate, parse , 
move and so forth. 

John Cassady then outlined his 
string package which he fashioned after 
Northstar's BASIC, He pointed out it's 
file handling utility and a discussion 
arose regarding screen windows, input 
windows and video segmentation. Amaz- 
ing how FORTH gets strung along. 

FIG Meeting - 

Announcements included the report 
of over 25 attendees at Kim Harris* Hum- 
bolt State FORTH class. 

Allyn Saroyan described the prob- 
lems he's had trying to convert code 
from other machines and asserted that 
we ought to submit code along with 
its algorithm and perhaps even assemb- 
ler particulars. 

Don Colburn, from Creative Solu- 
tions, mentioned a FORTHcoming tutor- 
ial under CP/M with stackgraphics. 

Bob Smith reviewed progress and 
problems of the floating point stand- 
ards team effort. 

John James described Cap'n Soft- 
ware's Apple editor. 

Bill Ragsdale spoke briefly about 
the Installation Manual version editor 
and code was shown on how to extend 
FORTH, Inc.'s editor. 

A preview copy of the August 1980 
Byte magazine was passed around. See 
the order form to get your copy. 

; s Jay Melvin 
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APPLE ■4th CASE 



Case Docun)entation 



r,W. Fittery 



Hero a 3eiec^. case for Apple-4th« 
The Apple works so- far and allows any 
level of r.x2S^.inq of any of tne allow- 
able structures plus more BEXJIN-CASES, 
END-CASES . You will qet a lot of 
failures it vou do not balance your 
{ BEGIN-rAS^_S --^END-CASES ; and your 
(CASE=END-a:;^E) , AIsc be aware the 
the top of stack is still available if 
none of the case statements are exe- 
cuted. Otnerwise the top of stack is 
eaten 'jp by the case statement. When 
BEGIN-CASES is encountered is placed 
on the stack for END-CASES. VJhen 
CASE is encountered at compile time 
OVER - :ER- -BRANCH , DROP is compiled 
inline. When END-CASE is encountered 
the ZERO-BRANCH for the matching case 
is pa tcned to the prope r j ump po in t . 
When END-CASE is found all forward 
junps set-up by END-CASE are resolved. 
Hiis is done with a BEGIN END looking 
for the C put on the compile time stack 
by REGIN-CASES. Good luck. 

Note: The general approach of the CASE 
statement is: 



tlEST 5 O'JLR = IF DROP 

6 OVER = IF DROP 

7 OVER = IF DROP 
DROP BAD INPUT" 

THEN THEN 



FIVE " ELSE 
SIX " EI£E 
SEVEN" ELSE 



The CASE sta tement format is 
as follows: 

The result of tr.e BEGIN-CASES, 
END-CASES is: 

1 if a CASE of tion is executed 
1 1 if no CASE option is executed 

Jf no CASE option is executed the 
flow of execution starts after the last 
END-CASE. Because of this and the fact 
that the top of stack passed to the 
BEGIN-CASE is still on top of the stack 
you may drop the parameter or you may 
use it to do a calculation which is 
done only when none of the case options 
are selected: 

Note : Though the code executes exactly 
the same code the format in 
Figure 1 is much easier to 
understand than that in Figure 
2. It is also much preferable. 

Case Statement 



Figure i. 

ESC-ESC ." ESC -ESC" ; 
NEC ESC-CTL-N" ; 
I£C ESC-CTL-L" ; 
SEC ESC-CTL-S" ; 
ESC KEY 

begin-<:ases 
27 case esc-esc endkiase 



THEN 



Generates the same code as: 



14 CASE NEC 
12 CASE I£C 
19 CASE SBC 



END-CASE 
END-CASE 
END-CASE 



: TEST 

BEGIN-CASES 

34 CASE 34 • END-CASE 

35 CASE 35 . END-CASE 

36 CASE 36 . END-CASE 
DROP ." BAD INPUT" 

END-CASES ; 

Note: You must use up so if no case is 
executed as if is left on the 
stack. 



END-CASES ; 
OCfTPOT 

BEGIN-CASES 
27 CASE ESC 
14 CASE 91 DOT 
12 CASE 92 DOT 
19 CASE 95 DOT 
DOT 

END-CASES : 



END-CASE 
END-CASE 
END-CASE 
END-CASE 
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: MONITER BEGIN KEY DUP OOTPOT 
32 = END ; 

;S 

Figure 2. 

: ESC-ESC ESC-ESC" ; 
: Src ." ESC-CTL-S" j 
: LEG ." ESC-CTL-L" ; 
: NEC ." ESC-CTL-N" ; 
: OUTPUT 

BEGIN-CASES 
27 CASE KEY 

BEGIN-CASES 

27 CASE ESC-ESC END-CASE 

14 CASE NBC END-<:ASB 

12 CASE I£C END-CASE 

19 CASE SBC END-CASE 

END-CASES 

END-CASE 
14 CASE 91 DOT END-CASE 
12 CASE 92 DOT END-CASE 
19 CASE 95 DOT END-CASE 
DOT 

END-CASES ; 
: MMJITER BEGIN KEY DUP OUTPUT 
32 = mu ; 

;S 



Support Words 

: COT 'S 1 + 1 TYPE DROP ; 
: '? VgC»D HERE COMTEXT % @ FIND ; 
: LIT R> 2 + DUP >R @ 2 + ; 
: .PFETCH R>R>2+DUP>R@2+ SWAP 
>R ; 

;S 



: OVER= OVER = ; 

: CASE BACKSLASH OVER= 

BACKSLASH ZERO-BRANCH HERE , 

BACKSLASH DROP ; IMMEDIATE 
: END-CASE BACKSLASH BRANCH HERE , 

SWAP HERE 2 - SWAP J ; IMflEDIATE 
: END-CASES BEGIN -DUP IF HERE 2 - SWAP 

! ELSE 1 THEN END ; IMMEDIATE 
PRINT-OFF 
85 85 PLIST 

( GENERAL 8-BIT SEI£CT CASE CODE ) 

( NEEDS BACKSIASH ( \ ) TO WC«K ) 

( FOR 16 BIT VERSION SEE # S 1,2,3 ) 

: XXX IF EISE THEN ; 

' XXX DUP @ SWAP 2 + @ 

( #1: 2 BECaiES 1 IN THE ABOVE LINE) 

FORGET XXX 

CONSTf^ BRANCH 

OONSTAtW ZERO-BRANCH 
: BEGIN-CASES ; IMMEDIATE 
: OVER= OVER = ; 
: CASE BACKSIASH OVER= 

ZERO-BRANCH , HERE , 

BACKSLASH DROP ; IMMEDIATE 
: EM)-CASE BRANCH , HERE , 

SWAP HERE 2 - SWAP ! ; IMMEDIATE 
( #2: 2 BECOMES 1 IN THE ABOVE LINE) 
: END-CASES BEGIN -DUP IF HERE 2 - SJ'»AP 
( #3: 2 BBCCMES 1 IN THE ABOVE LItE) 

! EtSE 1 THEN END ; IMMEDIATE 



E. W. Fittery 
International Ccropaters 
Mount Arlington, NJ 07856 



( CASE ) 

Judges' Comments - Interesting but 
rather limited. 

: BACKSIASH .PFETCH 2 - , ; 

: BRANCH R> 2 -I- @ >R ; 

: ZERO-BRANCH 0= IF R> 2 + @ >R 

ELSE R> 2 -f >R THEN ; 
: BEGIN-CASES ; IfMEDIATE 

COME TO FIG CONVENTION 
NOVEMBER 29 
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DO-CASE EXTENSIONS= 



Bob Giles 

Upon using the DO-CASE structure 
offered by Rick Main in the Vol. 1, 
No, 5 issue of Forth Dimensions, I 
caine across several instances where 
the power of this tremendously useful 
construct can be improved. The first 
is where several options are defined 
using the O^E and END-CASE structure, 
but all remaining cases have a common 
option. The other feature is where the 
DO-CASE variable is to be tested within 
a certain range of values instead of 
strict equality to one value per CASE. 
In order to maintain symmetry, some 
renaming of the keywords was neces- 
sary. The old structure looks like 
this: 

DO-CASE 

w CASE END-CASE 

X CASE Erro-CASE 

... 

... 

z CASE EI^ID-CASE 

ENDKIASES 

fly Structure looks like this: 

DO-CASE 

a CASE END-CASE 

b c CASES END-CASES 

... 

... 

J CASE END-CASE 

k 1 CASES END-CASES 

m CASE END-CASE 

OTHERvyiSE 

END-DO-CASE 

The lower case letters indicate 
operations that leave a 16 bit value on 
the stack. DO-CASE is symmetrical with 
END-DO-CASE, CASE is symmetrical with 
END-CASE, CASES is symmetrical with 
END-CASES and OTHERWISE, well 

OTHERWISE is useful when there 
are several courses of action for 



certain values of the DO-CASE variable, 
and a common routine for all the other 
cases. This closes any "loopholes" for 
erroneous values that can occur. 'Oiis 
is easily implemented by putting the 
common routine after the last END-CASE 
and before the END-CASES in Rick ' s 
DO -CASE structure . However , for 
readabil i ty and documentation , I 
defined a dummy word, OTHERWISE , 
(i.e. : OTHERWISE ; IMflEDIATE), to mark 
the action . Making this work an 
IMMEDIATE word assures that run time is 
not affected. OTHERWISE must be used 
at this particular point in the DO-CASE 
structure, and has no meaning or usage 
anywhere else. 

The need to test for equality to a 
value within a range leads to the 
CASES structure. Whereas x CASE tests 
the DO-CASE variable (VCASE) for x = 
VCASE, lo hi CASES tests VCASE to see 
if it satisfies lo < VCASE _< hi. If 
VCASE is within the range of the lower 
boundary, lo, and the higher boundary, 
hi, then the appropriate statements are 
executed within the CASES. . .END-CASES 
statement (this is the newer word - 
don' t confuse it with Rick' s END- 
CASES). If VCASE is out of range, 
these statements are skipped and 
execution resumes after the ENEMZASES 
(new word) statement. 

The listing of the structure is in 
the figure (see enclosure). The minor 
changes include - changing the name of 
END-CASES, making a dummy word called 
OTHEPiJ IS E , and d ef i n i ng the new wo rd 
CASES. 

The simplicity of CASES does not 
reflect the time it took to get it 
working. (A fairly lengthy interactive 
Forth debugger was written to help with 
the development). The basic idea is to 
subtract the upper limit from VCASE 
minus one and see if the result is zero 
or positive (i.e., the carry flag IS 
set). If the carry flag IS set, then 
the result is out of range and the 
Forth instruction pointer ( kept in 
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the £3C pair ) has to be incremented so 
that the next " instruction" executed 
will be the one after END-CASES* The 
action is the same as when VQhSE does 
not match in the CASE statement. If 
the carry flag is NOT set, then VCASE 
is less than or equal to the upper 
bound and possibly in range . If 
VCASE is less than the upper bound, the 
lower bound is subtracted from VCASE. 
If the result is negative (i.e., carry 
is NOT set), then VCASE is out of range 
and IP is incremented to resume after 
END-CASES. If the result is positive 
or zero (i.e., the carry flag IS set), 
then VCASE is between or equal to the 
upper and lower boundaries. In this 
case, the statements between CASES and 
END-CASES are executed. At ENIXASES, 
execution j umps to after the EtJD-DO- 
CASE statement and continues. 

Two interest ing concepts were 
included in this implementation. The 
first was the use of the assembly 
language CALL. The ' (tick) causes the 
code field pointer of the next word to 
be placed on the stack. The Forth CALL 
takes this address from the stack and 
assembles the CALL opcode and the 
address into the d ict ionary . At run 
time, the call to the -TOP subroutine 
is executed , and the 8080 program 
counter is pushed on the top of the 
stack. Within -TOP, the H POP takes 
the return address to HL, and then 
exchanges it with the top item (the 
boundary) so that the return address 
will be on top of the stack when RETurn 
is executed. 

' AFTCR-END-CASES leaves an address 
on the top of the compile time stack 
which is assembled into the dictionary 
by the JMP in code CASES. At run time, 
this AFTER-END-CASES segment serves as 
an extension to machine code in code 
CASES. Although this type of program- 
ming is a GOTO type of construct, it is 
used here to keep the definition of 
code CASES short. It also adds insight 



as to the intent of extended segment by 
the use of a name. My advice to other 
progransners is to use this jump around 
feature very sparingly, so as to remain 
in keeping with the concepts of struc- 
tured programming. 

The TEST for the new DO-CASE is 
listed on screen 153. It differs from 
the program that Rick submitted in that 
the various variables are to be entered 
on the stack before executing TEST. 
This way, all 65,536 possibilities can 
be tried instead of only the 128 
available from an ASCII keyboard . 

All of the following was done using 
Zendex SBC-FORTH V 1.0 for an 8080 
processor. 

A final note is in order. The 
earlier EX)-CASE had a bug in it per- 
taining to the address used to store 
VCASE. tJotice that my routines deleted 
the ' ( tick) which preceded VCASE in 
lines 3 and 4 of the first screen that 
Rick sent (see Vol. 1, #5 of Forth 
Dimensions, pg. 51). This is because ' 
VCASE causes the address of the para- 
meter field to be put on the stack, 
rather than the location of VCASE in 
the RAM area. Although the earlier 
DO-CASE works, fetching VCASE always 
yields a zero. 



Bob Giles 

flagnetic Media, Inc. 
Tulsa, OK 



Judges* Comnents - 

More of an extension of previous 
work than a new CASE. 
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SCREEN 150 

( DO-CASE STATEMENTS 

1 BASE Ce 
VOCABULARY FORTH+ 



4-4-80 BG ) 



2 
3 
4 

5 

6 

7 

8 

9 
10 
11 

12 CODE 
13 



FORTH+ DEFINITIONS 



) 



( DO-CASE CASE END-CASE CODE DEFINITIONS 
VARIABLE VCASE 

CODE DO-CASE H PGP VCASE SHLD I INX I INX NEXT JM? 
CODE CASE W POP VCASE LHLO L A MOV W 1+ CMP 

IF I LDAX I 1+ ADD A I 1+ MOV NEXT JNC 
I INR NEXT JMP THEN H A MOV W CMP 

LDAX I 1+ ADD A I 1+ MOV NEXT JNC 
I INR NEXT JMP THEN I INX NEXT JMP 
I LDAX A L MOV I INX I LDAX A H MOV 
POP NEXT JMP 
{ END CODE DEFINITIONS ) 

FORTH DIMENSIONS Vl-5 pg 50/51 BG 4-4- 



NOT 



NOT IF 



END-CASE 
H PUSH I 



14 BASE CI ;S 

15 ( COPIES FROM 



80 ) 



SCREEN 151 
( DO-CASE 
1 

CODE -TOP 



EXTENTIONS 



6-2-80 BG ) 



2 
3 
4 
5 
6 
7 

8 CODE CASES 
CS 



H POP XTHL XCHG E A 
CMA A D MOV D INX D 
(NOT TO BE CALLED FROM HIGH-LEVEL) 
CODE AFTER-END-CASES B LDAX C ADD 



MOV CMA 
DAD RET 



A E MOV D A MOV 



A C MOV NEXT JNC 



CS NOT IF 



9 
10 
11 
12 

13 CODE END-CASES 
14 

15 ;S 



B INR NEXT JMP 

VCASE LHLD H DCX XCHG ' -TOP CALL 
IF D POP ' AFTER-END-CASES JMP THEN 
VCASE LHLD XCHG ' -TOP CALL 



AFTER-END-CASES JMP THEN B INX NEXT JMP 



LDAX 
POP 



A L MOV 
NEXT JMP 



I INX I LDAX A H MOV H PUSH 



SCREEN 152 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



( CASES&OTHERWISE EXTENSIONS 



5-22-80 BG ) 



( FORTH+ DEFINITIONS - COMPILER DO-CASE STATEMENTS ) 

: DO-CASE COMPILE DO-CASE HERE 0,; IMMEDIATE 
: CASE COMPILE CASE SWAP HERE C, ; IMMEDIATE 

: END CASE COMPILE END-CASE HERE , SWAP HERE 

OVER - SWAP C! ; IMMEDIATE 
( COPIED FROM FORTH DIMENSIONS Vl-5 pg 50/51 BG 4-4-80 ) 



CASES COMPILE CASES SWA? HERE C, 
END-CASES COMPILE END-CASES HERE 

CI ; IMMEDIATE 
OTHERWISE ; IMMEDIATE ( NULL DEFINITION 



IMMEDIATE 
SWAP HERE OVER - SWAP 



) 



: END-DO-CASE 
FORTH+ ;S 



BEGIN HERE SWAP ! -DUP » END 



IMMEDIATE 



SCREEN 153 

( TEST FOR EXTENDED DO-CASE 



1 


BASE C^ HEX 






2 


: MONITOR 


DO-CASE 




3 


40 


CASE QUIT 


END-CASE 


4 


41 


CASE AAAA " 


END-CASE 


5 


42 


CASE BBBB " 


END-CASE 


6 


43 


CASE CAT " 


END-CASE 


7 


30 39 


CASES . " NUMBERS 


" END-CASES 


8 


OFE 102 


CASES CROSS • 


END-CASES 


9 




OTHERWISE NOT 


TESTED • 


10 




END-DO-CASE ; 




11 








12 


: TEST BEGIN 


DUP MONITOR « END ; 


13 








14 


BASE CI ;S 






15 









S-22-S0 BG ) 



3 
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ENTRY FOR THE 
FIG CASE CONTEST 



Arie Kattenberg 



An Overview of the CASE Statement 

Externally the CASE statement looks 
like: 



m n CASE 
k CASE 



1 CASE 
ENDCASE 



ESAC 
ESAC 



ESAC 



If a comparison is not 'true' 
(m?^n) the m stays on the stack and 
is tested against the next CASE. 

If a CASE is met the m is dropped 
and after the case body is executed, 
the ESAC transfers control to words 
following ENDCASE. 

If none of the CASES is met, EMDCASE 
has compiled a DROP that now drops 
the m instead of one of the CASES 
doing that. 



If we want explicitly some (stack) 
operations to be done when none of the 
cases is met, the m that remains on the 
stack there would be bothering. We 
then use: 



Now the 'OTHER' has compiled a 
drop for the m and ENDCASE does not 
compile a drop. 

In both the above examples we can 
nest other case structures in any of 
the case bod ies . Th i s is another 
reason f o r us i ng ' OTHER ' some t i me s . 

Though this is in no way essential 
to the above structures I have chosen 
a high level branch in the condi- 
tional branch that is compiled by 
CASE (i.e. (CASE ) manipulates the 
return stack contents to effectuate a 
branch). Now it is simple, machine 
independent and self explaining to m^e 
words like: 

>CASE <CASE CASES ODDCASE etc. 

that can take the place of CASE in the 
above examples. (Of course tliis can be 
done using machine language conditional 
branches for these elements just as 
well.) 

By the way: Hie m, n, k and 1 in the 
examples may be any amount of FOM'H 
that puts a number on the stack. 

Internally making a picture of a 
compiled CASE structure: (e.g.) 

a^drti» contents («t coapil* tiiu...) 



incT«Mln9 
a«aocy 

•ddr««MS ■ 

lit 
n 

( cas* ) 



m n CASE 
k CASE 



ESAC 
ESAC 



branch 

xa 1 lit 
H 

( cas* ) 



ESAC 



CASE 



1 CASE ESAC 

OTHER ENDCASE 



branch 

yy I nt 
p 

(cast) 
sa-9 



branch 
•c-9 

zt I drop 



ESAC 



or w* 

TTnd 

hare: 



branch 

zz : drop 



ESAC 
OTHER 
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Instead of the (CASE) cfa's we may fintJ 
examples of: 



An 'English' explanation of how 
the words work: 



{>CASE), (<CASE), (CASES) etc. 

there in a more advanced example . 

The m, n, k, p here are compiled 
literals, but there may be all sort.s of 
FXDRTH compiled there. 



Source definitions in fig-FORTH words 



ZBRAN 

Finds ' true ' or 'false ' on the 
stack. It fetches the address of the 
second return stack number which is the 
pointer (stored IP) in the list where a 
branch can occur. 

- If 'true' was on stack, the pointer 
is incremented by 2 (making next 
skip to the CPA following the 
branch) and the second stack number 
is dropped. (It was the 'key' to 
the ' case ' . ) 



^ 1 100 



ZKSt control itructur* JlX*IOP«b29 ) 

:bka« (Bi-l«vtl branch if BOT it ztro« us«d by CASE *) 

ItFf 2* SWAP 

IP SWAP OAOP 2 ELSE OUP « • TBEN SWAP *t ; 

COBB ( CoBpIat* I p«ndin9 forward branch *) 

lERt OVER - SWAP 1 ; 
CASE) (CospLlad by CASE, do a taat and conditionally branch *) 

OVEB • ZBRAN i ^ 
CASE (Exacutt until ESAC it Xay2 aquals Caaa'^l *) 

7C0NP COMPILE (CASE) HERE 0,5; IMMEDIATE ^ 
SSAC (Cloaa a CASE; Kay ia laft it cat* not dona*) 

5 7PAIRS ff 

COMPILE BRANCB HERE , SWAP COBR 4 ; IMMEDIATE 
ytntlL (ACtar laat ESAC, it atack or naatad CASES usad thara 

4 7 PAIRS COMPILE DROP 6 t IMMEDIATE 



i:8i 

CASE control atructura AX-SOPab 29 1 

ISDCASE <Cloaa a CASE control atructura *) 

OOP 4 - IP COMPILE DROP ELSE $ ?PAIR$ 4 THEN 

lEGIN OOP 4 • 5PC CSP • < AMD 

WBIU DROP COBR 

REPEAT ; IMMEDIATE 



- If 'false' was on stack, the pointer 
is incremented by the value that is 
found in the location where it is 
pointing to (making NEXT to resume 
interpretation of the list where 
the branch was compiled at a new 
location) . 

OOBR 

Finds an address on stack; a dis- 
tance from the actual DP value to that 
address is compiled in the address. 

(CASE) 

Finds two numbers on stack, compares 
these and leaves the 2nd on stack. 
Then control is transferred to ZBRAN. 
Ihe CFA of (O^E) appears in compiled 
lists as a relative branch (the rela- 
tive j\mp following it in the 1 ist ) . 

CASE 



COME TO FIG CONVENTION 
NOVEMBER 29 



Has precedence and checks whether we 
are compil ing when we use it . It 
canpiles (CASE) and puts the address 
following (CASE)'s CFA in the list, 
on stack. It stores a temporary 
in that location and puts a 5 for 
pair checking on the stack. 
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ESAC 



Glossary entries for each word 
in sheet B 



Does a pa ir check on the 5 it 
expects from CASE . It compiles a 
BRANCH, puts a temporary in the 
location following that BRANCH and puts 
the address of that location on stack. 

The branch that is half made by the 
previous CASE is completed* For pair 
check by the following ENDCASE a 4 is 
put on stack; the change of check digit 
(from 5 to 4 ) makes the nesting of 
other case structures in CASE .... ESAC 
possible. (ESAC has precedence. ) 

OTHER 

Has precedence , it does pair check 
on the 4 it expects from ESAC . It 
compiles a DROP for the key (for the 
CASES that are all not fulfilled when 
this point is reached) . The check 
d ig i t 6 is put on stack . The change 
from 4 to 6 as a check digit signals to 
ENDCASE that the 'OTHER' is used and it 
makes nesting of other case structures 
in OTHER .... ENDCASE possible. 

ENDCASE 

Checks for a 4 on stack; in case 
there is a 4 the "OTHER" is not used 
and we must compile a DROP here. If 
there is not a 4 there must be a 6 
(v^ich is checked); it is replaced by a 
4. 

The rest of ENDCASE looks for 
4's on stack that are placed there by 
the previous ESAC's (since there may 
be 4's on stack already before the 
definition that contains the case 
structure. ENDCASE also checks SP@ 
against CSP contents). 

The incomplete branches from the 
ESAC's are completed until none is 
left. 



ZBRAN mf (if f is true) 

mf — m ( if f is false) 

Procedure to perform the branch for 
a high level run time conditional 
branch in a CASE control structure. 

If f is false (zero), the in-line 
parameter fol lowi ng the compiled 
reference to the run time conditional 
branch is added to the stored inter- 
pretive pointer (second word on the 
return stack) to effectuate a branch. 

If f is true, 2 is added to skip the 
in-line parameter and m is dropped. 
Used by ( CASE ) , ( >CASE ) , ( CASES ) 
etc. 

COBR addrl 

Calculate the branch offset trcm 
addrl to HERE and store in addrl, thus 
resolving a pending forward branch. 

(CASE) m n (if m equal n) C2 

m n — m (if m unequal n) 

The run time procedure to condition- 
ally branch in a CASE control struc- 
ture. 

If m equals n, no branching occurs 
and NE)Cr interprets the words folla%dng 
the branch offset in the dictionary 
after the CFA of (CASE). 

If m is unequal to n, m remains on 
stack and bEXT resunes interpretation 
with a new interpretive pointer value 
according to the branch offset. 

Compiled by CASE. For branching, 
2BRANCH is used. 
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CASE m n — 
m n 



(run- time, if 
m equal to n) 

— m (run-time, if 

m unequal to n) 

— addr c (compile) 



P,C2 



Occurs 
the form: 



in a colon-definition in 



or: 



CASE ESAC 

CASE ESAC 

•••• •••• 

CASE ESAC 

ENDCASE 

CASE ESAC 

CASE ESAC 

• •«• •••• 

CASE ESAC 

OTHER ENDCASE 



At run-time CASE selects execution 
based on an equality test of the two 
numbers on stack. If m equals n the 
part until the next ESAC is executed 
and then control is passed to after 
ENDCASE. If m is not equal to n, m 
remains on the stack and control passes 
to after the following ESAC. The use 
of OTHER and its 'other' part are 
optional. ENDCASE, or (if present) 
OTHER, drops the remaining m. 

At compile time CASE compiles 
;CASE) and reserves space for an 
offset at addr. addr and c are 
jsed later for resolution of the 
offset and error testing. 



SSAC addrl cl — 
(compiling) 



addr2 c2 



P,C2 



Occurs within a colon-definition 
m the form: 

CASE ESAC 

CASE ESAC 

• . * ... 

CASE ESAC 

ENDCASE 



CASE ESAC 

CASE ESAC 

... ... 

CASE ESAC 

OTHER EJJDCASE 

At run-time ESAC executes after the 
part selected by the CASE it pairs to. 
ESAC branches over the following cases 
and resumes execution after ENDCASE. 

At compile time ESAC compiles a 
BRANCH, reserving room for a branch 
offset at addr2, leaving addr2 and c2 
for later resolving of the offset and 
error checking. ESAC also resolves the 
pending branch from the previous CASE 
at addrl, storing the of set from addrl 
to HERE. 



OTHER m (run- time) 

cl — c2 (compiling) 



C,P 



Occurs within a colon definition 
in the form: 

CASE ESAC 

CASE ESAC 

• • • ... 

CASE ESAC 

OTHER ENDCASE 

At run-time OTHER executes when 
none of the cases is met. OTHER drops 
the m against which the cases were 
tested. 

At compile time OTHER compiles a 
DROP. OTHER also checks the cl from 
the last ESAC for error testing and 
puts c2 on stack to signal ENDCASE that 
OTHER has been used and to make nesting 
of new case structures possible between 
OTHER and ENDCASE. 

ENDCASE addrl cl addr2 cl 

addrn-1 cl addr-n c2 

(conpiling) P,C 
m (run-time, no OTHER used) 

Occurs in a colon-definition in 
the form: 
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CASE 
CASE 



CASE 
ENDCASE 



ESAC 
ESAC 

■ • • 

ESAC 



or: 



CASE ESAC 

CASE ESAC 

• • • • • • 

CASE ESAC 
OTHER ENDCASE 



sex tl03 



( 



ex«Mpl«s of CASE control struccur* AJC-80re&29 ) 

eXAMPL ( 3oac twxz 14 prlr.ttd. ft«X«ct«d by numbAt -1 i nusber -2 '} 



5 CASE 12 CASE 
3 CASE 

oraeft 

IB CASE 3 CASE 
7 CASE 

OT«R 
2 CASE 
9 CASE 
OTHER 



OTHER 



This* 
n" 
only' 
a v«ry" 
■Illy' 
•x«mplt" 
of ttl9 UM* 
of rvtsttd' 
cases" 



ESAC 
ESAC 

ENDCASE ESAC 

ESAC 

ESAC 

ENDCASE ESAC 

ESAC 

ESAC 

ENDCASE C::OCAS£ ; 



I S 



At run-time ENDCASE serves as the 
destination of all forward branches 
from the ESAC's in the case structure. 
If OTHER does not occur, ENDCASE drops 
the m that remained on stack vrfien no 
case is met. 

At compile time ENDCASE compiles 
a DROP if OTHER was not used in the 
case structure, which can be known from 
the value of C2. ENDCASE resolves all 
the pending forward branches from the 
ESAC's by storing the offset from addri 
to HERE in addri for addrl thru addrn. 
The Cl's indicate the presence of such 
an unresolved branch as long as the 
control stack pointer is not passed . 



Examples of the use of this statement 



Short discussion on the case 
statement presented here 



The history of this case stat^»nt 
is outlined below: 

A first try for CASE was a replace- 
ment of IF so we could produce case 
structures like: 



la. 



or 
ib. 



CASE 
CASE 
CASE 



TOE^ ... 
THEN ... 
THEN I»OP 



CASE .... EliSE 

CASE EL5E 

CASE .... EtSE DROP 
THEN THEN THEN 



SCR 1103 



( Cxaaplts o£ CASE control structure 



SCL 

CASE 

1 CASE 

2 CASE 

3 CASE 

4 CASE 

5 CASE 
( CASE 

7 CASE 

8 CASE 

9 CASE 



( 

isro" 
On** 
TWO' 
Thrss* 
four' 
Fi»«' 
Sis* 
S«v«n* 
Ei9ht* 
NIME^ 



(frit* nufl^wr 
ESAC 
ESAC 
ESAC 
ESAC 
ESAC 
ESAC 
ESAC 
ESAC 
ESAC 
ESAC 



-1 b*tM«n 



AX-80r«b 
and 9 M taxt 



Outside rsngs 0-9* ENDCASE t 



At run-tirae, Ib is the faster 
one since no other cases are tested 
once a case is done. A disadvantage 
however is the necessity to write the 
HiEN ... MEN ... THEN series. 

An improvement on Ib was to organize 
the DROP THEN THEN ... THEN by a new 
compiler word: 



II. ... CASE .... Et£E 

... CASE .... EtSE 

... CASE .... EtSE 
ENDCASE 



Page 71 



FORTH DIMPBI0I6 XI/3 



Bat since ENDCASE can only see 
by the 2's for ?PAIR on stack how 
many branches have to be completed this 
structure II cannot be nested inside 
... IF . . • EI^E . . . THEN or inside an 
other CASE ... EI£E. 

This could be avoided by making a new 
"ELSE" and then using other numbers 
for ?PAIR checking in the structure . 

By changing the number for pair 
checking in the new "ELSE" (ESAC), also 
nesting in other case structures is 
possible: 

ni. ... CASE 7 PAIRS "a" CSAC '7»AIIIS 'f 
... CASE CSAC 
... CASe ESAC 

7PAIRS *b" ENDCASE 

Now, a remaining problem is the 
part between ESAC (the last) and 
ENDCASE. There the number against 
which the cases are checked is still on 
stack, so we cannot easily manipulate 
the stack there; also, at compile time 
we have the "b"'s for ?PAIR checking on 
stack so we cannot nest a new case 
structure there. 

To solve these two problems we made 
the optional "OTHER" that performs the 
DROP at run time and that at compile 
time changes again the "check number" 
to inform ENDCASE that the DROP already 
has been compiled and to make nesting 
of other case structures possible. 

Of course the nesting problem could 
have been solved by using an opening 
word like is done in the example on 
page 50 and 51 of Forth Dimensions, 
Vol. 1, No. 5. But this forces the use 
of an extra word at compile time. This 
opening word cftuld e.g. store the top 
stack word on the return stack (not in 
a variable as is done in the exanple!, 
since this prohibits nesting of case 
structures) . But I doubt whether it is 
an advantage to remove the number 
against which the cases are checked 
from the stack: This costs ( run ) time, 
makes it difficult to change that 
number between an ESAC and the next 



CASE (after all, why should one not be 
allowed to do this) and the number is 
not in the way as far as I can see. 

The use of a high level (CASE) and 
the use of the separate ZBRAN there are 
not mandatory. 

To have a fast executing case 
structure one may rewrite (CASE) in low 
level without affecting the essence of 
this case structure. 

However, as presented here the 
structure is machine independent for 
standard fig-FX3RTH's. 

Also this high level (CASE) makes it 
easy to extend the possibilities, 
e.g.: 

1 OCASe) OVER < :BRAN ; ORANCH If SMALLER THAN) 
t >CASe COHFItE {>CASS) HERE « S : INHEDIATE 

and we have a new type of case, 
or: 

: (CASES) ROT >R ft < SWAP R > AND R> 

SWAP XBRAN ; (BRANCH IF NOT IN RAKCE ) 
: CASES COMPILE (CASES) BERE 0,5; INHCOIATE 

etc. Any odd case you expect to use 
more than once can be incorporated in 
the se t and used j ust 1 ike CASE . 

;s 

P.S. In re-reading all this I notice 
that "PCOMP" is not needed in the 
definition of CASE; please omit. 

P. P.S. My native language is Dutch; 
please forgive me any errors in the 
language. 

Arie Kattenberg 
Utrecht, Netherlands 

Judges' Comments - This entry has a 
number of interesting ideas in it and 
could be useful to developers. The 
presentation is a bit hard to follow in 
places. A plus is the short history of 
the develc^roent of this CASE structure 
through severed earlier forms. 
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=CASE CONTEST STATEMENT= 

George Lyons 

This entry submitted to the FIG 
Case Statement Contest is 1 imi ted 
to providing a compiler syntax for 
writing equivalents of ALGOL "case" and 
"switch" statements in FORTH and some 
additional words to use in conjunction 
with ALGOL style case expressions. As 
such it does not solve all the problems 
posed in the contest announcement. 

In formulating a case expression 
syntax the first decision was to treat 
case lists as in-line or literal 
expressions within : definitions rather 
than prov ide a spec ial def in ing word 
creating words of a case list type. 
This increases flexibility of use at 
the expense of storage saving otherwise 
obtainable by exploiting the code 
address field of a case-type word. A 
second decision was to allow use of a 
list either to execute a case selected 
at run time or to compile the execution 
address of the case — for use in more 
complex compiler features. Storage for 
a list which was to be only executed 
turned out less than when compiling so 
different commands are provided for 
these two circumstances. A third 
decision was to include in the compiled 
code for a case list no number-of-cases 
parameter; hence no checking of the run 
time inputsubscript's validity is done 
in executing the cases. Instead 
separate word s PINDEX and EXCEPT are 
provided to do this checking , taking 
more storage v^en used than if their 
functions were built into the case list 
code , but saving time and space when 
they are not needed, as when the 
validity of the input is establi^ed 
elsewhere in a program. 

The in-line case lists are handled 
as one instance of a general approach 
to in-line list functions in which a 
list is represented in the form ccc( 
...list data... ). cc( is a Word which 



begins compil ing the 1 ist and ) is 
introduced as a word, in addition to 
its role in comments, to terminate the 
list. Different words ccc( perform 
different functions involving data 
or code stored in the list. The 
parenthesis was defined as a word 
because of the similarity of the run 
time process of skipping around data 
embedded within a definition and the 
compile time skipping past a comment in 
source code. The general approach 
oompi les all 1 ists wi th an execution 
address at the front which processes 
the data and returns controls to 
the point following the 1 ist ; the 
address of this return point is stored 
immediately following the execution 
address a t the beg inn ing , and i t has 
more uses than just returning control. 
When a list contains variable length 
elements a vector of addresses of the 
elements is appended to the end of the 
list in reverse order. The case lists 
are an example of this structure in 
v*iich the data is a list of variable 
length code segments, written for 
instance using EXECUTE ( CASE case 
code... CASE easel code... CASE ... ). 
The case compil ing words such as 
EXECUTE { are written using utility 
Words available for building additional 
functions along the same lines. 

Examples of the latter are some 
Words that might be used in conjunc- 
tion with EXBCLrrE( ... ). These are 
mentioned briefly here, and some are 
implemented in the glossary and code 
section. 

[ n ] EXCEPT EXBCirrE( ... ) 
(oonpile time source) 

At run time EXCEPT will check the 
subscript on the stack intended to 
select a case in EXECUTE (...) and 
replace it by zero if negative or 
greater than n. Case zero can then be 
especially written to handle these 
exceptions. 

W+ addr n addr+2*n 



Address arithmetic operation for 
byte addressable cxDtnputers. Increments 
an address adr by n words. Can be 
implenented m machine code using shift 
operations instead of multiply. 

: W+ 2 * + ; 

W- addr n addr-2*n 

Address arithmetic operation for 
byte addressable ccxnputers. Decrements 
an address adr by n words. See W+. 

COMPILES addr n P,C 

Used in conjunction with EXECUTES in 
a : definition to combine a procedure 
performing compiler operations with run 
time code for the procedure compiled, 
in a single definition. In the form : 
ccc ... COMPILES ... EXECUTES ... ; 
IMMEDIATE, ccc performs the operations 
up to EXECUTES at compile time; these 
compile time operations include COM- 
PILES which compiles the address of the 
cod e f o 1 1 ow i ng EXEC UTES . EXEC UTES 
places at that address a pointer to the 
code for : definitions, so that the 
code following EXECUTES is in effect a 
: definition without a name field. 



:CO«PtLCS ?CCMP COHPILC COMPILE BERC n 2 ALLOT ; tHNCOZATC 



EXECUTES addr n P,C 

See COMPILES. Compiles ;S to 
terminate the compile time part of a 
dual definition, and stores the address 
of the next d ictionary location in 
the space reserved by COMPILES. 
Compiles the address of the code for : 
definitions to begin the run time part 
of the Word. 



At run time ?INDEX will issue a 
system error message if the subscript 
on the stack intended to control 
EXECUTE ( is invalid, instead of writing 
a special case zero in the case list. 



ri:)D( nl , n2 , ni , ...) EXECJTEt ... ) 



FIND( is another example of the 
in-line expression approach which 
performs the inverse of a simple 
vector. It searches at run time for a 
match to the stack item in the list, 
returning either its subscript or zero 
if not found. Again, case zero can be 
written to handle the exceptions. 



INTERVAL( nl , n2 , n3 , . . . nk ) 
EXBCUrE( ) 



Another in-line expression type , 
INrER\flUL( contains a vector of values 
in ascending order dividing the number 
doma in in to the intervals be twe en 
them. At run time a subscript is 
returned identifying the interval in 
which the stack item falls, and the 
item itself is preserved for processing 
by the selected case. 



RANGE ( nl , ml , n2 , m2 , . . . ) 
EXBCUTEt ... ) 



I EXICUTES 7C0MP [ HERE 2 - J COHPILC iS n 7PAIIS HERE 
SWAP I COMPILE I i , 1 I IMMEDIATE 



[ n ) 7INDEX EXBCUTEC ... ) 
(compile time source) 
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Similar to INTERVAL ( except that 
each n,m pair defines a separate 
range, and a subscript is generated 
identifying the first range found which 
embraces the stack item, or a zero if 
outside all of the ranges. 

n r^lENU CCC EXEX:urE( ... ) ; 

MENU is a defining Word to create a 
menu-driven application named ccc which 
at run time will present screen n to 
the user, who will select options by 
entering a number , which is finally 
processed by the case list compiled 
within ccc. 

Glossary and Code 

The implementation below is written 
entirely in high level code assuming a 
byte addressing machine . Literal "n" 
used with 7PAIRS is left unspecified 
for consistent specification of all 
?PAIRS values. 

BEGIN ( addr n ff n 

Used in certain compiling words to 
begin compilation of an in-line, or 
literal data structure within a : 
definition . The next word in the 
dictionary is reserved for the address 
of the location following the entire 
structure, to be filled in by ) at 
address addr. n is for compiler error 
checking. ff marks the stack so that 
other compiling words may push pointers 
to internal parts of the data block, to 
be appended to the end of the block by 
). See ). 

: BEGIN ?COMP HERE n 2 ALLOT . ; 

) addr n ff addrO... n 

(when used as a Word) 

Has two entirely different uses. 
One terminates a ccxnment begun by ( , in 
which case it is not processed by the 
compiler . When used outside of a 
comment it completes compilation of 



an in-line data structure begun by 
BBGIN(. addrO... is a possibly empty 
list of addresses of points internal to 
the data block left by other compiling 
Words; if present it is appended to the 
data in reverse order. The address of 
the location following the data is then 
stored back at its beginning point 
addr . Al so resumes compi 1 at ion wode . 

: ) n 7PAJtIS bEGIN - DUP WHILE , n ?PAR:5 -.£B£ SWAP 

I 1 I IMP ED I ATE 

LIT( 

Used in Words processing in-line 
data structures to set up the return 
and computation stacks for accessing 
the data and branching around it. The 
Word in whose definition LIT( appears 
must be used immediately in front of an 
in-line data block, so that the address 
of the location at which to resume 
control is found in the following 
location; see BEGIN(. Consequently on 
^try to LIT( the return stack contains 
the address of the code following LIT( 
itself on top and the address of the 
data block just below. LIT( replaces 
the second return stack item by the 
address of the code following the data, 
and pushes the address of the first 
data item onto the computation stack. 
Also see )LIT. 

: LIT( R> R> DUP & >R 2+ SWAP >R ; 

)LIT 

S imilar to LIT ( except returns on 
the computation stack the address 
of the last word in the data structure 
instead of the first word, for access- 
ing any address vector stored there in 
reverse order by ). 

: )LIT R> R> @ DUP >R 2 - SWAP >R ; 

EXECUTE ( — addr n f f n (caripile) P,C 
n (run time) 

Used within a : definition to define 
a list of routines, or cases in high 
level code in the form: 
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CXECt7rC( CASE ca»«0. 



:S CASe cas«l. . . jS 



;S ) 



At run time case n is executed and 
control returns beyond the list. 
Unpredictable results occur if n is 
not a valid subscript at run time. 
Executes BEGIN( at compile time. 

EXECUTE ( 7C0MP COMPILES BEGIN ( EXECUTES )LlT W- 9 >R ; IW1C0IATE 

CALL( addr n ff n (compile) P,C 

n — (run time) 

Similar to EXECUTE ( except the case 
routines are in assembly language in 
the form CALL( CASE caseO... CASE 

easel ). Invokes the assembler 

vocabulary and suspends cocnpilation. 



:KLL{ 7C0MP COMPILES BEGIN! ICOMPILEI I ; COMPIUII XSSCnBIXR 
tlECLTES )LIT W- • SP« 2 - SWAP DROP EXECUTE; XMHCDIATE 



::ase addr n ff addrO... n 

addr n ff addrO. . .addrl n P 

Used to begin each cae in a case 
list defined by EXECUTE ( or CALL(. 
Adds the address of the next case addrl 
to the list of case addresses addrO... 
on the stack, using n for error check- 
ing. 

: CASE n ?PAIRS HERE n ; IMMEDIATE 

CCMPILE( — addr n f f n (compile) P^C 
n — addr (run time) 

Used within a : definition to 
define a list of routines, or cases in 
either machine code or high level code 
m the form COMPILE { ;CASE ... ;S 
CODECASE ... ) which returns at run 
time the execution address of the case 
whose subscript is on the stack. The 
input subscript must be valid or 
unpredictable results will occur. To 
actually compile the execution address 
returned use See also EXECUTE ( and 
LITERAL(. Compiles using BEGIN(. 

::»PILfi( ?CO«P COMPILES 8EGIM( EXECUTES J LIT H- | ; ZMUCOZATC 

:CASE addr n ff addrO... n 

addr n ff addrO... addrl n P 



Used to begin each high level 
code case in a case list defined by 
CCMPILE(. Executes CASE and compiles 
the address of the code for executing : 
definitions. The routine begun by 
:CASE should be terminated by ;S as in 
EXECUTE ( expressions. 

t iCASC ( HE?E 2 - 1 (COKPILEI CASE J COMPILE [9.1: IMMEOI 

CODECASE addr n ff addrO... n 

addr n ff addrO. . .addrl n P 

Used to begin each assembly code 
routine in a case list defined by 
COMPILE (. Executes CASE and compiles 
the address of the next dictionary 
location (as in the code field for a 
CODE definition). Compilation is 
suspended and the assembler vocabulary 
invoked as in CALL(. A jump to NEXT 
within a machine code case will resume 
high level execution following the case 
list. 

1 CODECASE [COMPILE I CASE 3 ALLOT HERE OL'? 2 - * 
(COMPILE] [ [COMPILE] ASSEMBLER ; IMMEDIATE 

LITERAL { addr n ff n (compile) 

nl — n2 (run time) P,C 

Used within a : definition to define 
a vector of 16-bit values. These 
values may be made Word execution 
addresses using the form 

LITERALC WordO Vtordl Vtord2 ... ) 

or may be made literal ninnbers using 
the form 

LITERAL( [ nO r nl , n2 , ...] ) 

At run time the element whose sub- 
scription is on the stack is returned 
(without diecking the validity of the 
stack value). When used with EXECUTE 
in the form LITERAL( ... ) EXECUTE the 
same result is achieved as using 
EXECUTE ( ... ) except that storage 
requirements are less because no extra 
addresses are needed at the end of the 
vector. Uses BEGIN ( to compile the 
list. 



FORTH DIMENSIC»B II/3 



Page 76 



LITERAL! 7C0HP COMPILES 8EGI!t( EXECUTES LIT( « ; inMEDIATE 

EXCEPT n (conpile) 

n n (run tiine) P,C 

Used before an in-line case list or 
literal vector defined by EXECljrE( . . . ) 
or similar Words, in the form [ n ] 
EXCEPT. Compiles an execution address 
and the value n , presumed to be the 
number of caes or vector elements in 
the subsequent in-line expression. At 
run time replaces any input value that 
is negative or greater than n by zero, 
allowing case or el emen t zero to 
represent the "exceptions." This may 
be an error message or other explicit 
operation, or may simply bypass the 
entire case list by leaving case zero 
empty, i.e. compiling high level cases 
as ;S and machine code cases as a jump 
to NEXT. The EXCEPT function is not 
built into the case list expression 
code i tse 1 f to al low ing sav ing the 
storage when it is not needed. 

: EXCEPT >R COMPILES R> , EXECjTES R> DUP 2* >R OVER 0< IF 
DROP DROP ELSE i OVER < IF ::ROP ENOIF £NDIF ; IMMEDIATE 

FIND( addr n ff n (compile) 

nl — n2 (run time) P,C 

Used in a : definition to define an 
array similar to LITERAL( but to 
perform the reverse operation at run 
time, i.e. the value is on the stack 
and the subscript is returned, or zero 
if not found. 

I PXIID( COHPILES BEGIN ( 2 ALLCT { eiemvnc z«ro r*»rv«d ) 
( for copy of input) 1C0«PIL£1 ! tAtC'^EO LITi 
OVER OVER I SWAP OVER R 2 - 00 DL'P I * • IP DROP I LEAVE 
E»Dir -2 *LOOP SWAP - 2 / ; IJWtOIATE 

INTERVAL( addr n f f n (compile) P,C 

nl nl n2 (run time) 

Used in a : definition to define a 
literal vector of interval boundary 
points in increasing order; at run time 
the subscript of the smallest boundary 
above nl is added to nl already on the 
stack, to control a subsequent case 
list processing nl. Compiles using 
BEGIN). 

: INTERVAL COMPILES BEGIN( [COMPILE) { tXtZUttS \ LIT( 
OVER OVER R 2 - DO I OVER t ^ < IF LEAVE ENDIF 
2 +U>OP SWAP DROP SWAP - 2 / } IlWtDIATE 



Case Contest Entry 
George Lyons 

APPENDIX 

The words COMPILES and :CASE above 
share a common function wh ich might 
preferably be in a separate Word by 
itself . That function is compil ing 
into the next dictionary location the 
code address used in : def in itions . 
Rather than define a new Wbrd, however, 
this function may be added to the 
existing definition of the : operator, 
as the function to be perfomed when 
STATE is the compiling mode, in con- 
trast to the regular function performed 
when STATE is the execution mode, as 
it is when a definition is begun using 
Similarly, the Word CODE can be 
expanded to include a function to be 
performed in the compile state which 
consists of compiling the code address 
of a CODE definition (the address of 
the following location. . . ) , setting 
STATE to execute and invoking the 
ASSEMBLER vocabulary for beginning 
assembly language programming immed- 
iately following. Revised definitions 
from the case statement glossary above 
would then be: 

: EXEC'JTES ? CQMP COMPILE ;S f\ ?PMP.S HERE SWAP i 
iCOMPILE : : : IMflEDIATE 

The Words :CASE and CODECASE are 
eliminated and the syntax for COMPILE { 
is: 



COM?ILE( CASE : ...high l«vtl case...:S ... ) 
COnPIL£( CASE CODE ...sach.nt code case } 



George Lyons 

Jersey City, \U 07302 

Judges' Comments - George got off to 
great start but went on to solve m:i 
more problems than CASE, i.e. coitpili 
in-line machine code by CODECASE 
There are numerous ideas here, dese 
ing of further analysis and examples 
CASE. 
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=A FORTH CASE STATEMENT = 



R. D. Perry 



SCR 



1 



The Case Statements presented 
here are an extension of the FORTH IF 
Statement. The structure of the CASE 
Statement is such that it allows an 
N"way branch as contrasted to the IF 
stateiT\ent two way branch. This version 
allows a CASE to be tested against a 
single value or a range of values. It 
does not require contiguous values for 
the tests. The value or range of 
values to be tested against are deter- 
mined at run-time , this allows vari- 
ables to determine CASE selection. No 
preprocessing is required as with the 
vector selection approach. It will 
execute faster than an IF statement 
preceeded by preprocessing (Example: = 
IF ) assuming code implementation of 
N=Branch and NE^ANGE=BRANCH. 

I became interested in the CASE 
Statement while implementing a CRT 
Screen Editor for FORTH Editing and 
Word Processor use. 



» sx 

( CASE STATEMENTS 
BEX 



RSP 800322 ) 



2 CODE H-BRAfX:H { IF BCT NOT EQU SEC BftANCH FROM INLINE LITERAL I 



3 
i 
5 
( 
7 
1 
9 
10 

a 

12 
13 
14 



INX, INX. FE ,X LDA, EOT CMP, 0* 
IF, FF ,X LOA, BOT 1* CMP, 0- 
IF, INX, INX, * OBRANCa 8 
ENDIF/ 

ENOIF, ' BRANCH JMP, C; 



( BUMP ) JHP, 



CODE NRANGE-BRANCB ( IF THIRO<SeC OF TBIftOBOT BRANCH FROM LIT ) 
INX, INX, INX, IMX, sec, FC ,X LDA, BOT SSC , 
FO ,X LOA. BOT 1+ SBC, 0< NOT 

IF, sec, BOT LOA, FE ,X SBC, BOt 1+ LOA, FP ,X SBC, 0< nOT 

If, INX, IMX, ' OBRANCa 8 • ( BUMP ) JNP, CMOIP, 
EMDIF, ' BRANCH JHP, C: 



IS DECIMAL — > 



[ CASE STATEMENTS ROP 600322 

"> ( R£MOVE tSIS LINE IF CODE VERSIONS NOT USED } 
DECIMAL ( R IS POINTING TO NEXT LOCATION ) 
: N -BRANCH 
OVER - 

IF R> 2* >R DROP 
ELSE R> DUP 8 >R 
THEN ; 



( OVER RANGE ) 



NRANGE»BRANCB 
ROT OOP ROT ( L,V,V,H ) > 
IF SWAP CROP R> DUP # * >R 
ELSE DUP ROT ( V,V,L ) < 

IF R> DUP 8 • >R ( ONDCR RANGE ) 
ELSE R> 2'^ >R DROP ( IN RANGE ) 
THEN THEN ; --> 
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( MORE CASE 
: BEGIN-CASCS 



ROP 800322 
7C0HP 4 



IMMEDIATE 



; CASE ?C0K? { EL, 4 ) 4 7PAIRS ( EL } 
COMPILE N»BRANCH HERZ , ( EL.N8L ) 
S ; IMMEDIATE ( CL, NBL. S ) 

: RANGE-CASE 7C0MP ( EL,4 ) 4 7PAIRS ( EL ) 
COMPILE NRAMCE-BRANCH HERE , ( EL,NBL 

5 I IMMEDIATE ( EL,NBL,5) 

1 CLSe-CASE 7C0HP 4 7PAIRS ( EL ) 

COMPZLC DROP S j IMMEDIATE ( EL.O.S ) 

— > 
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( MORE CASE ROP 800322 

I END-CASE 7C0MP 5 7PAIRS COMPILC BRANCH ( EL*BL ) 
OOP ( EL^tL.BL, ) 

IP leRC I*' OVER - SUAP I ( EL ) 

CLSE DROP 

TBCM HERE SWAP , 4 ( NeL,4 ) ; IMMEDIATE 



CMD-CASCS 7C0HP 4 7PAIRS ( EL ) 
OOP 0« 0» 1 7PAIRS ( ERROR IF HO CASES ) 
COMPILS DROP 
BCGZH DUP 

mitC OOP f SWAP HERE OVCR - SWAP * 
MPEAT DROP } IHMEOIATC ;S 

13 { NAMES OP STACK ITEMS ) 

14 EL -> END LINK NCL -> NEW END LINK 

15 BL -> BCGZH LINK MBL -> NEW BEGIN LINK 



SCft 



1 

3 
3 
4 
S 

s 

7 
S 

9 

10 
11 
12 
13 
14 
15 



15 



ROP 800320 ) 



CASE STATCNCMT TEST 
TEST BCGIN-CASCS 

1 CASE * OHE* EIID*CA8E 

3 CASE * THO* END-CASE 

-« 9 RANGE-CASe * > MEG. TEN AMD < TEN* END-CASE 
ILSE-CASE * OTBBft* END-CASE 
END-CASES CX ; 



IS 

TTPC A HUHBBH POLLONCO BY 
ACCOftOXNG TO CASE ABOVE 



•TEST*, OOTPOT WZLL BE 



FORTH DII4ENSI0NS II/3 



Page 78 



N=BRANCH nl n2 (run-time, nl=n2) 

nl n2 — (run-time, nl<>n2) 

The Run-Time procedure to conditionally 
branch . If nl does not equal n2 the 
following In-Line parameter is added to 
the interpretive pointer to branch 
ahead (or back) and n2 is dropped. If 
nl equals n2 the interpretive pointer 
is advanced passed the in-line para- 
meter and both nl and n2 are dro^^ed. 
Compiled by CASE. 

!^NGE=BRANCH nl n2 n3 

(run- time, nl>=n2 & nl<=n3) 

nl n2 n3 nl 

(run-time, nl<n2 or nl>n3) 

The Run-Time procedure to conditionally 
branch. If nl is less than n2 or nl is 
greater than n3 the following in-line 
parameter is added to the interpretive 
pointer to branch ahead (or back) and 
both n2 and n3 are dropped. If nl is 
greater than or equal to n2 and nl is 
less than or equal to n3 and nl, n2, 
and n3 are dropped and the interpretive 
pointer is advanced passed the In-Line 
parameter. Compiled by RANGE -CASE. 

BEGIN-CASES nl n2 

(compile time) 
Occurs in a colon-definition in the 
form: 

BEGIN-CASES 

. . . CASE . . . END-CASE 

... RAIX3E-CASE ... END-CASE 

EI3E-CASE END-CASE 

END-CASES 

At compile- time BEGIN-CASES places nl 
and n2 on the stack, nl will later be 
used by Em-CASES to signal that there 
is no prior END-CASE to link to. n2 is 
used for error testing. 

CASE nl n2 nl (routine, Nl<>n2) 

nl n2 (routine, nl=nl ) 

addrl Nl — Addrl Addr2 N2 
(acxnpile time) 

At Run-Time CASE selects execution 
based on equality of the bottom two 



values on the stack. If they are 
equal signalling that the CASE is to be 
executed , both nl and n2 arc dropped 
and execution proceeds through CASE. 
CASE. If they are not equal only 
N2 is dropped and execution skips 
to just after END-CASE. ( See BEGIN- 
CASES ) 

At Compile-Tiine CASE compiles N=BRANCH 
and reserves space for an offset value 
at addr2. addrl is the address for the 
offset value of the last El^D-CASE. nl 
and n2 are used for error testing . 

RANGE -CASE 

Nl N2 Nl (Run-Time, N10N2 ) P,C2 

Nl N2 (Run-Time, N1=N2) 

addrl N2 addrl addr2 N2 (Compile-Time) 

At Run-Time selects execution bases on 
whether nl is in the range n2 to n3 
(n2<n3 ) . If in range execution pro- 
ceeds through RANGE-CASE. If not in 
RANGE execution skips to just after 
ENDKIASE. ( See BEGIN-CASES ) 

At Compile-Time RANGE-CASE compiles 

NRANGE=BRANCH and reserves space for an 

offset at addr2. addrl is the location 

for the offset value of the last 

EM>-CASE. nl and n2 are used for error 
testing. 

ELSE-CASE 

nl — (run-time) 

addrl nl addr n2 n3 

(oompile-time) 

At Run-Time nl is dropped and execution 
continues through ELSE-CASE. ( See 
BEGIN-CASES ) 

At Compile-Time ELSE compiles DROP. 
ADDR is the location for the offset of 
the last END-CASE. n2 is used by 
END-CASES to signal that the last case 
was an EISE-CASE. nl and n3 are used 
for error testing. 

ELSE-CASE (run-time) 

addrl addr2 nl 

addr3 n2 (compile time) 
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Run-TiiT\e causes execution to skip 
to after END-CASES. ( See BEGIN- 

CASES ) 

-.1 Zompile-TLme uses ADDR2 to set the 
::rset of the last CASE or RANGE -CASE 
to point to after this END-CASE, 
^or.oiles BRANCH with an offset to be 
calculated later by END-CASES. The 
location for the offset of the last 
iMD^LASE is temporarily stored in this 
offset location and the new offset 
location is put on the stack. Nl and 
N2 are used for error testing. 



□^D-CASES 

(run-time with EI£E-CASE) 

n — (other run-time) 

addrl nl (compile- time) 

At Run-Time drops a stack value if no 
ELSE-CASE exists. Any END-CASE will 
continue execution just after the 
DROP. ( See BEGIN-CASES ) 

A t Compi 1 e-T ime DRO P is compi 1 ed and 
all of the offsets from an END-CASE 
are calculated and stored in their 
proper locations. ADDR is the location 
for the last offset for an EM)-CASE. 
That location holds the address for the 
prior offset and so on. The first 
offset location holds a value (0) vrfiich 
tells ENI>-CASE that there are no more 
offsets to calculate. 

R.D. Perry 

San Diego, CA 92106 



Judges' Comments - This is quite a 
complete and well documented entry. 
The range-of-cases feature is well 
done . Note that high level alterna- 
ti ves are g iven for the 6502 machine 
CODE words. 



NEW PRODUCT 



pico FORTH 



HERMOSA BEACH, CA, JUNE 2H , 1980 
picoFORTH'^M, a new subset of 
polyFORTHTM^ is available for 1802 (disk 
or PROM) and 8080 micro- processors. 

Designed for interactive evaluation, 
picoFORTH includes all the essentials 
for programming, debugging, and testing 
a single-task application. This 
complete operating system features the 
polyFORTH assembler, compiler, text 
interpreter, editor, disk utilities, and 
basic documentation. picoFORTH can be 
upgraded at any time, either for a 
single purpose (with one or more of 
three jpackages: Source, Target 
CompilerTM^ or Mulititasker) or to full 
polyFORTH. A File Management Option 
package is also available. In addition 
to the current versions, picoFORTH will 
soon be implemented on the 8086, 6800, 
and LSI-11 processors. Price for 
picoFORTH is $^95. Write or call Tom at 
FORTH, Inc., 2309 Pacific Coast Highway, 
Hermosa Beach, CA 9025^ (213) 372- 
8493. 

NEW PRODUCT 



ALPHA MICRO FORTH 



This system implements the Forth 
Interest Group language model , with 
full-length names to 31 characters, and 
extensive compile-time checks. 

In addition, the diskette includes 
an editor, a FORTH assembler, and a 
string package, in FORTH source. The 
PDP>11 FORTH User^s Guide , which 
includes extensive annotated examples of 
FORTH programming. 

This FORTH system runs under AMOS. 
The distribution disk is single 
density. The complete system price is 
$190: Professional Management Services, 
724 Arastradero Road, Suite 109, Palo 
Alto, California 9^306, (408) 252-2218. 
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CASE STATEMENT 



William IK Powell 



The case structure by R.B. Main 
looks very powerful and flexible , but 
it seems to me to be unnecessarily 
compl icated . My suggestion is for a 
word that does OVER = IF for his word 
CASE. This fits the existing FORTH 
compiler very well. The example by 
Main would read 

: MONITOR 

41 CASE ." ASSIGN " THEN 

44 CASE DISPLAY " TOEN 

46 CASE FILL " THEN 

47 CASE GO " THEN 

53 CASE SUBSTITUTE " THEN 
ELSE INSERT " THEN 
DROP ; 

You will note that I have made the 
' insert ' message uncond itional . This 
illustrates just how little need be 
added to the present FORTH structure 
and also how use of the present FORTH 
conditionals can be harnessed to the 
sinple case structure as above. Hie 
normal FORTH syntax holds, and can be 
rel led upon if case structures are 
nested into other structures, or into 
another set of case conditions. 

This structure is neither the 
optimum for speed nor bytes. On the 
other hand we should avoid adding 
to FORTH in such a way that the 
nucleus and compiler grow any more 
than necessary. I favor a CASE 
structure that makes the program 
clearer , encourages sound software 
design and adds power to the language 
without adding significantly to the 
system software overhead. 

Using the fig-FORTH model I need 
ideally one more nucleus word, and one 
for the compiler.... 

COOI /-BRANCa ( Branch it SEC - BOT non-saco) 

IMZ, IVtf { Drop BOT only) 

SBC, rt tX LDA, ,X SBC, ' BBMCH 0« CNO, 

rr ,t LDK, I ,X SBC, * BBAHCfl 0- B:io, 

BUMVi JMP, 



You will see that /^BRANCH does t he- 
same as OVER = IF and the case struc- 
ture could be implemented without 
introducing /=BRANCH but I think speed 
and clarity better if one adds a coc 
word as I have. 



W.H. Powell 
Sawbridgeworth 
Herts. CM21 9tB 
ENGLAND 



Judges' Canroents - Bill Powell didn't 
submit this as a ccMitest entry, but it 
appeared in our mail just as the 
contest started. We took the liberty 
of including it as a mini-Case appro- 
priate for the 6502. 



HELP WANTED - - 



PROGRAMMER FOR MAJOR PROJECT 

Orange County, CA Location 

Call or write: ANCON 
17370 Hawkins Lane 
Morgan Hill, CA 95037 
(408) 779-0848 



I CASS ( nl n2 nl C«s« la •x«cut«d if al • n2] 

COHPILC /•BRANCH HCRC 0,2; INHeOXATe 
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A CASE STATEMENT 



ENGLISH EXPLANATION 



Ma3or Robert A Selzer 

OVERVIEVJ OF THE STATEfl£27r 

CASE - The "CASE" statement is a 
special form of the IF-ELSE-THEN that 
permits the selection of one of many 
cases depending upon the top word on 
the stack being equal to a specified 
word (the value that precedes "CASE"). 

u ( stack value ) ul ( case value ) 
CASE ( true action ) EI£E ( false 
action ) THEN 

u ( stack value ) ul { case value ) 
CASE ( true action ) THEN 

If u = ul, drop u,ul and execute true 
action following CASE until ELSE or 
THEN. Otherwise, drop ul but leave u 
on stack and execute ELSE ( false 
action ) or THEN if no ELSE. Imple- 
mentation is the same as IF-EISE-THEN, 
however each subsequent use of "CASE" 
will save 2 words { 4 bytes ) ever the 
explicit use of OVER = IF DROP. CASE 
use also improves the readability of 
the source and if used often, will save 
code as well as being more convenient 
to the user. 

SOURCE DEFINITIO^B 

See attached source listing. Note 
that fig-FORTH word COMPILE should 
replace FORTH, INC. word { back- 

slash ) or X (in later FORTH, INC 
versions) and a 16 bit emplace word , 
( comma ) replaces the 8 bit emplace 
C, ( C-comma ). So, for SCR # 198, 
line 6. The fig-FORTH definition for 
CASE would be: 



CASE COMPILE (CASE) COHPILE OBItANCH BESE 00 , f IMHEDIXTC 



Only two new words need to be 
defined to use the CASE statement. 
(CASE) is the execution version that 
duplicates ( OVER ) the top of stack 
value then compares ( = ) it to the 
case value. If they are equal, the 
true action through the IF statement is 
taken and the stack value u is dropped 
( DROP ). As part of the true action 
a flag ( 1 ) is pushed on the stack 
for OBRANCH to test when CASE is 
executed. If the stack and case values 
are not equal the false action ( ELSE ) 
is taken and a false flag ( ) is 
pushed on the stack over the original 
stack value tested ( u ) . Both actions 
exit with THEN. CASE compiles the 
address of (CASE) and the address of 
the run-time IF called OBRANCH . 
A 16 bit zero is compiled ( , ) at 
HERE in the dictionary, by HERE 00 
, to reserve space for the branch to 
EISE or THEN. The precedence bit of 
CASE is set so that CASE compiles 6 
bytes whenever it is executed. Like 
IF, CASE must be used inside a colon 
definition and each use of CASE 
requires a corresponding THEN ( or 
ELSE ) to complete the structure. 

GLOSSARY ENTRIES 

(CASE) 

The run-time procedure that is used 
by CASE, Equivalent to OVER = IF EROP. 
(CASE) is conpiled by CASE. 

CASE u ul u P,C2+ 

u ul CASE true action for u=ul 
ELSE u false action THEN 

If u=ul, drop u and ul and execute true 
action following CASE until next ElBE 
or TOEN. If u is not equal to ul, drop 
ul but leave u and execute false action 
following EL£E or drop ul but leave u 
if no EISE and exit to THEN. 
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u ul CASE tru« action for u-ul ELSE 

u u2 CASE true action for a"u2 CL5E 

u un CASE tru« action for u-un ELSE 

U false action THEN THEN... THEN 



EXAMPLES 

See screens #199 and #200. 

SCR #199 is used to demonstrate 
simple CASE use in the same application 
of the example published in FORTH- 
DIMENSIONS V 1/5, p. 51 to show 
conformity to an existing structure, 

SCR #200 is a simple, but elegant 
example of CASE use in a video editor 
which occupies about 355 bytes of 
dictionary space for the COMPLETE 
editor. This is a good example of the 
CASE structure in fig-FORTH used to 
save code space and provide clarity of 
structure. While the editor is written 
for the ADM-3A terminal, line 1 defines 
a word which controls the cursor 
position sequence, so that any terminal 
can be used by making appropriate 
changes to the word YXCUR . The 
integer values in line 2 ( 2 and 4 ), 
determine the initial Y,X offset of the 
cursor in the HOME position (upper 
left corner + Y,X offset). This 
allows for adjustment of different LIST 
formats and edit screen positions. The 
vertical line at the right margin of 
the screens is generated by a 7C EMIT 
compiled in LIST. Hi is vertical line 
gives the video editor user a positive 
indication of the editor limits of the 
right margin by setting up a window 
in which to edit. Hie ESC ($1B) key 
is used to exit the video editor VEDIT 
when finished. In fig-FORTH, use 
EMIT in place of ECHO in line 1. 
Don't forget to FLUSH . 

DISCUSSION 

This inplementation of CASE in this 
form is fig-FORTH transportable to 
different machines (ie., 6502, 8080, 
6800 etc.), however there is a 6 byte 
requirement for each use of CASE versus 
only 4 bytes for each use of IF. In 



applications like the example shown 
in SCR #200, the 2 byte overhead in 
CASE ( 6 bytes vs. 4 bytes for IF ) 
saves 4 bytes for each use in lieu of 
OVER = IF DROP ( 10 bytes ) . More 
importantly, its use significantly 
enhances the readability and structure 
of the source code at the minimum cost 
of only 2 new FORTH words. 



SCRI 198 

( CASE DEFINITION RAS-09FEa80 ) 

1 FORTH DEFl HIT IONS BASE f BEX FORGET TASK TASK ; 
2 

3 

4 : (CASE ) OVER * IF DROP 1 ELSE THEN ; ( EXECUTION CODE ) 
5 

( : CASE tCASE] OBRANCB BERE C, ; IMMEDIATE 

7 

5 BASE 1 
9 

10 
11 
12 
13 
14 

15 



SCRi 199 

{ TEST " CASE * STRUCTURE ) BASE 9 BEX 
1 



2 : 


HONITOR 








3 


41 CASE 




ASSIGN " 


ELSE 


4 


44 CASE 




DISPLAY " 


ELSE 




U CASE 




FILL • 


ELSE 


6 


4 7 CASE 




GO • 


ELSE 


7 


49 CASE 




INSERT • 


ELSE 


8 


S3 CASE 




SUBSTITUTE 


• ELSE 



9 THEM THEN TBEM THEN TBEN THEN ; 

10 

11 : KEyBOARD BEGIN KEY 7F AND OOP MONITOR 20 - END ; 
12 

13 BASE 1 :5 

14 

15 



$CR» 200 

( VIDEO EDITOR, COPYRIGHT RCS 1979 ) HEX 00 VARIABLE CUR 

1 : rXCUR IB ECHO 3D ECHO 20 ♦ ECHO 20 ♦ ECHO t ( ADM -3 A) 

2 : ,CU8 CUR I 40 /MOD 2 + SWAP 4 ♦ SWAP YXCUR j : I CUR MAX 
I 3rf KIN CUR I I 1 -KUR CUR « ♦ iCUR ; : ^^,C\3h ♦CUR .CUR t 

4 : 4-LIN CUS 9 40 / ( LINE I) * 40 « !CUR ; : HON 00 CUR 1 ; 

5 : IBLK SCR I 8 • CUR * 80 /NOD ROT ♦ BLOCK * Cl UPDATE 1 *.CUR 

6 : VEDIT LIST CR CR CR CR CR HON .CUR BEGIN 



7 KEY IB CASE 12 YXCUR QUIT ELSE ( ESCAPE) 

8 OB CASE -1 ♦.CUR ELSE ( LEFT CURSOR) 

9 OA CASE 40 ♦.CUR ELSE ( DOWN CURSOR) 

10 OB CASE -40 ♦.CUR ELSE ( UP CURSOR) 

11 OC CASE 1 ♦.CUR ELSE { RIGHT CURSOR) 

12 OD CASE 1 ♦LIM .CUR ELSE ( NEW LINE ) 

13 le CASE BOH .CUR ELSE ( 8CNE CURSOR) 

14 OOP ECHO !BLX 

15 TBEN THEN THEN THEN THEN THEN THEN AGAIN : OECINAL ;5 



Copyright 197 7, rcs A«soci«t*s P0RTH-«5 vm 

OK 



Major Robert A* Selzer 
APO San Francisco, 96301 

Judges' Comments - This entry has the 
unfortunate need for closing the CASE 
by a correct number of TOENs. It is 
written for microPORTH. The example of 
a screen text editor is outstanding and 
should be carefully read by all. 
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2.4 CASE FORTH 



338 2 



A CASE STATEMENT: 



Kenneth A. Wilson 



CASE STATEMENT CONTEST 

1.0 Description of the entry (coded in 
microFORTH ) 

1.1 Screen 338 defines the 4 words 
needed to generate a conplete 
CASE statement. 

1.2 Screen 339 contains a CASE test 
example . 

1.3 The next 2 pages contain the 
printout obtained by executing 
the word TRIAL. 

2.0 jDefinition of CASE words 

stack 

word vocabulary block in out 



2.1 <CASE FGRTH 



338 



A defining word which creates a 
named array of n + 1 cells. 
Example: n <CASE name. 



2.2 -> 



FORTH 



338 



A redefinition of for visual 
clarity. Pushes cffito the stack 
the address of the parameter 
field of the word that follows 
in the current input stream. 



2.3 =CASE FORTH 



338 



Puts the address of a word (Si) 
into an array (SO) at cell n 
(S2). 

Example: n word array *CASE 
Read as: "n" becomes "word" in 
"array" case. 



Executes the word whose address 
is contained in the array (SO) 
at cell location n (SI). 

Example: n name CASE 

3.0 Explanation of the Example in 
Screen 339. 

3.1 Line 1 defines 3 Cases: 

3.1.1 FIRST is a Case of 4 cells 

3.1.2 SBC is a Case of 4 cells 

3.1.3 THIRD is a Case of 4 cells 

3.2 Lines 2 thru 5 define "print- 
ing" words as follows: 

3.2.1 Pronouns: I, YOU, WE, THEY 

3.2.2 Verbs: mh WAL, SIT, JOG 

3.2.3 Adverbs: HOME, BACK, DftVN 
UP 

3.3 Line 6 thru 9 define the 
contents of the three Cases as 
follows : 

3.3.1 FIRST Case contains 4 
Pronouns 

3.3.2 SEC Case contains 4 
Verbs 

3.3.3 THIRD Case contains 4 
Adverbs 

3.4 Lines 10 thru 14 define the 
word TRIAL whidi v*ien executed, 
will cause the three Cases to 
be executed in sequence for 
each different possible com- 
bination of the index, i.e.: 

111 FIRST CASE SEC CASE THIRD CASE 

112 FIRST CASE SEC CASE THIRD CASE 

554 FIRST CASE SEC CASE THIRD CASE 

555 FIRST CASE SEC CASE THIRD CASE 



5 
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An OvTvltw 
Cell nuab«r 



R«t«rve<] for 
kucur« ui« 



TRIAL 

I RUN HOME 
I RUN BACK 
I RUN DOWN 
I RUN UP 



UOROl 
HOR02 



YOU Rim HOME 

YOU RUN BACK 

YOU RUN DOWN 

YOV RUN UP 



Figure 1 
A C«9* ArcAy NAME! oC n*i Cells 



WE RUN HOME 

WE RUN BACK 

WE RUN DOWN 

WE RUN UP 



Cell nuabcr 
HANC 



THEY RUN HOME 

THEY RUN BACK 

THEY RUN DOWN 

THEY RUN UP 



MAME 2 2* ♦ (points toi 



% EXECtrrc («xtcut«s word:} 



I WALK HOME 

I WALK BACK 

I WALK DOWN 

I WALK UP 



Figure 2 
Storing «nd executing Cell 2 



YOU WALK HOME 
YOU WALK BACK 
YOU WALK DOWN 
YOU WALK UP 



331 LIST 




1 
2 
3 
4 
S 
( 
7 
» 
9 
10 
XI 
12 
13 
14 
IS 
OK 



( CASE TEST UOROS) 
DISPLAY DEFINITIONS 
t <CASe VARIABLE 
I -> J 
: -CASE ROT 2* 
t CASE SWAP 2* 



% EXECUTE 



OeCZMAL 



2-18-80 



339 LIST 




1 
2 
3 
4 
5 
« 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
OK 



CASK TEST EXAMPLE ) OISPLAT DEFINITIONS 



DECIMAt 



<CASE FIRST 

II ( I 1 ; 

RUM t KON J 
JOC I JOG ] 
( DOIfU 



4 <CASE SEC 
YOU { YOU 1 ; 
WALK ( WALK 1 
HONE I aOHE ) 
I UP [ UP I J 



4 <CASe THIRD 
WE [ WE 1 } I 
r : SIT ( SIT I j 
[ : BACK ( BACK 1 t 



THEY ( THEY 1 t 



OOWN THIRD -CASE 
OP THIRD -CASE 



-> II FIRST -CASE 1 -> RUN SEC -CASE 1 -> HOME THIRD -CASE 
-> YOO FIRST -CASE 2 -> WALK SEC -CASE 2 -> RACK THIRD -CASE 
-> WC FIRST « CASE 3 -> SIT SEC -CASE 3 -> 
-> THEY FIRST -CASE 4 -> JOO SEC -CASE 4 -> 
TRIAL CR S 1 DO X 
S 1 DO I 

S 1 00 OVER OVER I ROT ROT 
FIRST CASE SEC CASE THIRD CASE CR 
LOOP DROP CR LOOP DROP CR LOOP f 
ECIHAL ;S KAN 2-28-80 



WE WALK HOME 
WE WALK BACK 
WE WALK DOWN 
WE WALK UP 

THEY WALK HOME 
THEY WALK BACK 
THEY WALK DOWN 
THEY WALK UP 

I SIT HOME 

I SIT BACK 

I SIT DOWN 

I SIT UP 

YOU SIT HOME 
YOU SIT BACK 
YOU SIT DOWN 
YOU SIT UP 
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WE SIT liOME 
WE SIT BACK 
WE SIT DOWN 
WE SIT UP 

THEY SIT HOME 

THEY SIT BACK 

THEY SIT DOWN 

THEY SIT UP 

I JOG HOME 

I JOG BACK 

I JOG DOWN 

I JOG UP 

YOU JOG HOME 
YOU JOG BACK 
YOU JOG DOWN 
YOU JOG UP 

WE JOG HOME 
WE JOG BACK 
WE JOG DOWN 
WE JOG UP 

THEY JOG HOME 
THEY JOG BACK 
THEY JOG DOWN 
THEY JOG UP 

OK 



Kenneth Wilson 
Waltham, MA 02154 



NEW PRODUCT 
68000 

CREATIVE SOLUTIONS, INC. announces 
the availability of the FORTH 
programming approach for the Motorola 
68000 l6-bit Microprocessor. 

Featuring: FORTH Interest Group 
Model and FORTH-79 Standard 
Compatibility , Virtual Disk Operating 
System, Text Editor, Inline Macro 
Assembler, Computer Aided Instruction 
Course on the FORTH Proramming Approach. 

Also Available : Cus t omi zed I /O 
Drivers for Non-Standard configurations, 
Suitable Hardware Configurations, 
Complete Source (written in FORTH), Meta 
Compiler, Mult i-tasker , Extended Data 
Base Management and File System. 

The standard software product, 
available f or configurations utilizing 
the Motorola MEX68KDM (D2) 68000 
evaluation model with Persci 1070 
controller and compatible floppy disk 
drives retails for between $1500 - $5000 
(depending upon options) for single user 
systems. 

For further in format ion please 
contact Creative Solutions, Inc. , 1^625 
Tynewick Terrace, Silver Spring, 
Maryland 20906, Phone: (301) 598-5805. 



Judges' Comments - This is a very 
simple positional (jaip table) type of 
CASE. The whole thing can be defined 
in three short lines of code. At first 
glance, however, the presentation looks 
nore difficult than it is. Part of the 
problem is that the notation - the word 
names - does not suggest, very well, 
what is going on. This entry looks 
1 ike a good complement to Eaker • s . 
Both are simple mechanisms for doing a 
single job and the jobs that they each 
do are very different. Work is needed 
on integration and further development 
of these models. 



NEW PRODUCT 

AVAILABLE FROM ANCON 

The following manuals and other infor- 
mation is available from ANCON, 17370 
Hawkins Lane, Morgan Hill, CA 95037. 
Write for detailed list, 

FORTH Systems Reference Manual 
The FORTH Language 
FORTH-11 Reference Manual 
Indirect Threaded Code Reprints 
FORTH, a Programmers Guide 
PDP-11 FORTH Users Guide 
PH21-MX FORTH Manual 
CYBOS Programmers Manual 
Program FORTH, A Primer 
The JKL FORTH Manual 
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CASE STATEMENT 



WAYNE WITT/BILL BLBLER 



Overview 

The CASE word provides the capa- 
bility to vector to a particular word 
based on an input parameter, similar to 
the FORTRAN conputed go-to. Itie CASE 
word also provides automatic limit 
checking on the input parameter with an 
optional out-of- range capab il ity 
(OTHERCASE). 



CASE 

n CASE mO ml ... mi DONE 

CASE is used as a structured con- 
struction v^ere n = to i and mO 
ml ... mi represent a list of word 
names with the list being terminated 
by the word DONE. 

Vflien the definition containing the 
case construct ion i s executed , 
module mn will execute, then execu- 
tion wi 1 1 con tinue after the DONE . 
If n is not in the range to i, 
execution continues after the 
DONE. 

Alternative CASE usage with OTHERCASE 



CASE bC 



OTHERCASE OJt DONE 



49 

( NtU CASE - CODE CASE 



WW « WB 2/15/80 ) HEX 
( I? - TOf or STACK ) 



(CASE) ( CODE CASE — CASE PARAMETER N -I 

I f Ifff AMD OVER SWAP << ( TRUE IT N IN E,IS7 RANGE 



IP 2* I ♦ 2* I 2> EXECUTE 
ELSE DROP I • 0< 

IP I t 7PPP AND 2* 
THEN THEM 
OOP OOP 0< 



I + 



2* 2* * R> DROP II I 



( NOTE I INTERPRETER POINTER MOVED TO END Of LIST OR J 
( AFTER THE DONE ) DECIMAL ;S 



( EXEC. LIST NODULE N ) 
( TRUE IP 0TBERCA5E SPECIPICO ) 
2* % I* EXECUTE ( OTHERCASE } 

( NOW TO CONTINUE EXEC. AT DONE ) 
( GET ADOR. AND VALUE OP CASE-INDEX } 
IP 7rPP AMD !♦ THEN { INCR INDEX If OTHERCASE SPECIflED ) 



( CONTINUE EXECUTION AFTER DONE ) 



When the definition containing the 
case construction is executed , 
module mn will execute if n is in 
the range to i; then execution 
will continue after the DONE. If n 
is not in the range to i, module 
mx wil 1 execute and then execution 
will continue after the DONE. 

Only executable modules should be 
used in the case list; literals and 
compiler words, especially: 



( NEW CASE - OTBERCASE - DONE WW & WB 2/15/90 ) BEX 

( POT CODE CASE ADDRESS IN DICTIONARY , 
( PUT a ON STACK , 

t CASE (CASE) 8ERC , i IMMEDIATE ( CREATE CASE-INDEX 

( IK OICTIOMART AND ZERO 17 



OTBERCASE DUP 1000 SWAP t ; IMMEDIATE ( 



SET OTBERCASE BIT 
( IN CASC-INDEX 



OOP BER£ SWAP - 2 / 1 - ( CALC. COT PGR CA5e-i:;oex 

SWAP DUP I ( GET TBC CASE-INDEX TO TEST POR OTBCRCASE 



ROT OUP 0* 

IF DROP DROP 
ELSE SWAP 

IP 1 * tOOO OR THEN 
TBEM SWAP 1 I IMMEDIATE 



{ TRUE IP NO ITEMS IN LIST 



( SET CASE-INDEX 70 ZERO } 

{ TRUe If OTBERCASE SPBCIPIED ) 

( « -1 AND OTHERCASE BIT SET ) 

DECIMAL ;S ( STORE CASE-INDEX ) 



This listing Is £roa a 6809 T«rsion of rORTB. 



CASE OF ELSE THEN BEGIN END BUILDS DOES 

Should NOT be used. 

OTHERCASE 

Used in conjunction with CASE word 
for out of range conditions. See 
CASE usage. 



DONE 



li 



CASE word terminator. See CASE 
usage. 

n — 



Replaces the interpreter pointer 
with the top stack item (n). 
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(CASE) 



MH2 illustrates the nesting capability 
of the CASE word. 



The execution time portion of the 
CASE word. 

<< 

nl n2 f 

Unsigned 16 bit less than. 
Example of CASE usage 

1 TXX CASE TXl TX2 TXJ DOMC ; 

If TXX is executed, then execution will 
continue as follows based on the value 
on the stack. 



STACK VALUE 


1 
2 



EXECUTE 

TXl 
TX2 
TX3 



Execution then continues after the 
DONE. If the stack value was not 0, 1 
or 2 then execution continues after 
the DONE. 



This form of CASE conforms with the 
unwritten rule of FORTH to keep it 
simple and basic . Hie user needs to 
remember only three words, CASE, 
OTHERCASE and DONE to construct simple 
to complex forms of the structured 
CASE. The CASE in providing automatic 
limit checking and out of range 
recovery elliminates the need for user 
limit testing of the parameters. Ihis 
out of range checking capability does 
slow the execution speed slightly, but 
it was felt that the added capability 
was worth the slight loss of speed. 



Bill Busier 

Odessa, Florida 33556 



Wayne VJitt 

Tampa, Florida 33615 



Examples of CASE usage with OTHERCASE. 

M2 rtl CASE tHQ VOICE SYNC NULL OTBCRCASC Sn3 OONC i 

HHl CASe NULL FirO TIHC XniT-NSG OTSCRCASE MH2 DONE C:.EANOP 



If MHl is executed, then execution will 
continue as follows based on the value 
on the stack. 



STACK VALUE 


1 
2 
3 

Any Other value 



EXECUTE 

NULL 
FIFO 
TIME 

XMIT-MSG 
MH2 



Execution then continues after the 
DONE, in this instance CLEANUP. 



Judge's Comments - The run-time word 
(CASE) seems much too long for the job 
it does. Ihis is partly because the 
out-of-range case is handled by a 
special construction . Nevertheless, 
the code could be reorganized or 
factored . Also, pushing the DONE 
address back on the return stack at the 
end of (CASE) would eliminate the need 
for I! and make the package more 
portable. 

The ODDO ... THEN construction in Kitt 
Peak FORTH accorapl ishes al 1 the same 
functions much more efficiently. 



COME TO FIG CONVENTION 
NOVEMBER 29 
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THEKITT PEAK 
GODO CONSTRUCT 



By David Kilbridqe 

The GODO construct, as specified 
in the glossary of the Kitt Peak FDRTH 
Primer, is a type of CASE statement. 
An index on the stack is truncated to 
fall within a contiguous range and used 
to select a word from an in-line 
execution vector. I present here a 
very simple implementation in fig- 
FORTH. 

As an example of usage, here is a 
word which accepts a or 1 from the 
terminal and selects the corresponding 
disk drive, and rings the bell if any 
other key is pressed. 

: GET-DRIVE ." DISK DRIVE? " 
KEY 2F - 

OODO BELL DRO DRl BELL THEN ; 
The necessary source definitions 

are 

: (GODO) 2* 

MAX R @ 4 - MIN 
R> DUP DUP @ + >R 
+ 2+ @ EXECUTE ; 

: GODO 

CCMPIIE (GODO) 
HERE 0,2; 
IMMEDIAm 

How it works: GODO oonpiles (GODO) 
and leaves space for a branch offset to 
be calculated by THEN. Ihe address of 
the cell and an error-checking flag are 
left on the stack. At run time (GODO) 
doubles the index on the stack and 
truncates it both above and below so 
that the reference executed will always 
be chosen frcxn the list provided. Then 
(GODO) uses the branch offset to step 
its return address over the reference 
list and finally executes the selected 
reference. 



Glossary: 

GODO addr n (campile-time) P,C 

(GODO) n (run-time) 

Used in the sequence 

... GDDO RO Rl ... Rn THEN ... 

At run-time, GODO selects execution 
based on a signed integer index . If 
the index is <=0 then RO is executed; 
if =1 then Rl is executed; ... if >=n 
then Rn is executed. After executing 
the selected reference , execution 
resumes after THEN. 

Discussion: The GODO construct 
provides a basic contiguous-range type 
of CASE statement requiring very little 
supporting code. Hie compile-time word 
is simple because most of the work is 
done by THEN. The run-time word is 
simple because truncating the index 
allows out-of-range cases to be handled 
just like in- range cases. 

If other means are used to insure 
that the index is always within range, 
the "catch-all" references RO and/or Rn 
can be omitted. However, there is 
still the time overhead needed to 
truncate the index ( unless (GODO) is 
reconciled without the second line of 
its definition) . 

The principal limitation of this 
construct is that only single words can 
be referenced. This prevents direct 
nesting of GODO ' s . However , one can 
nest by defining the inner GODO as a 
separate word and referencing it in the 
outer GODO. By letting Ro and/or Rn be 
such references , several noncontiguous 
ranges can be covered. 



Kitt Peak PRIMER available from FIG 
for $20.00 in US and $25.00 Overseas, 



COME TO FIG CONVENTION 
NOVEMBER 29 
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FIG NORTHERN CALIFORNIA 
MONTHLY MEETING REPORT 

26 April 80 

Vne F0RI1L session consisted of three 
presentations covering FORTH File 
proposals . John James and John Cassady 
discussed Directories consisting of bit 
-aps named FileControlBlock ( FCB) 
wherein allocation of strings of blocks 
Files) were managed. Particulars of 
ritmap manipulation at the Buffer, 
Block and Disk (file and volume) levels 
^re expl icated . Some other concepts 
included user transparency, hierarchy 
-f directories, commands, security and 
integrity. Kim Harris described Record 
types and management within a File and 
gave examples of FORTH, Inc. styled I/O 
at the Field level. The pros and oons 
zt the various approaches will be 
debated at the next meeting where also 
String manipulation will be discussed. 
Attendees were requested to prepare 
written proposal s of anticipated 
requirements and arguments for and 
against the different approaches. 
Though not a tutorial, the FORML 
session was very instructive. 

The April Northern California FIG 
Tieeting consisted of a presentation by 
Jim Brick (of M&B Design) of a poly- 
FGRTH bootup under CP/M. Jim described 
tne application requirements that 
produced the need and the technique he 
-sed to develop this bootup package 
sold by FORTH, Inc. He denonstrated 
tne hybrid package on a TRS-80 with I/O 
accessories which allowed 8" disks and 
remapping of the TRS-80 memory for 
?olyFORTH-CP/Jl compatability. 

Bill Ragsdale initiated a tutorial 
on overflow correction vrtiich spon- 
taneously escalated into a discussion 
on error signals, repair and recovery. 
:<im Harris, Lafarr Stuart and Dave 
Boulton described their respective 
approaches to dealing with errors. 
Bill elaborated the "Utrecht approach" 
to error signaling and recovery and 
noted two lessons learned: high level 



words can define error recovery and 
the return stack can be usefully 
unthreaded. He congratulated our Dutch 
colleagues for the ir imag inative 
applications of "tricks" garnished from 
other computer languages. 

Henry Laxen was congratulated for 
his excellent article on FORTH in the 
80 April 28 issue of INFOWORLD. 

Kim Harris announced his FORTHcoming 
course on FORTH programming at Humbolt 
State university (80 July 21-25) and 
also reported on a talk he delivered 
ear 1 ie r th i s mon th at the As i 1 omar 
I . E . £ . E . conference on megatr ans i stor 
chips. 

...HANDOUTS provided at the meeting 
included: 

-polyFORTH-CP/M (Brick) 

-INFOWORIiD reprint (Laxen) 

-TIC -TAG -TOE (in FORTH, of course) 
(George Flaimer) 

-overflow correction (Ragsdale) 

-Match CPM for 8080 figFORTH (anon) 

-Double number support (Ragsdale) 

-String match for Editor (Peter 
Midnight) 



;s Jay Melvin 



Publisher's Note: 



Cc3roe on, you other FIQGERSr send in 
reports on your meetings. We'll 
publish them. 
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FIG NORTHERN CALIFORNIA 
MONTHLY MEETING REPORT 



24 May 80 

FCeML Session - 

Kim Harris directed a review of last 
month's session to compare and contrast 
file systems presented by: 

1. John James 

2. John Cassady 

3. Kim Harris (FXBTH, Inc. system) 

The most striking difference betveen 
the three file systems was that FORTH, 
Inc.'s did not utilize a bit map in the 
directory which would allow for a 
distinct ion between physical and 
logical files. The bit map implemented 
in James' and Cassady' s systems provide 
for easier file manipulation. 

FIG Meeting - 

Bill Ragsdale opened the meeting by 
introducing guests Ed Murray from the 
University of South Africa and Don 
Col burn who is marketing a FORTH 
Teaching Tutorial to be configured for 
various machines. 

The meeting was devoted to a two 
fold tutorial where Kim Harris ex- 
plained FORTH tools ranging from 
NUMERIC output and base conversion to 
test interpretation. I/O formating 
examples included the definition of 
HOLD, ASCII and PAD. These "tools" 
were applied in a temperature con- 
version prog ram. Bill Ragsdale 
followed with a presentation on problem 
solving techniques using the task of 
printing Morse ( dits/dahs) characters 
to the screen in response to text 
input. Top down techniques were 
delineated by listing the subtasks and 
writing code then testing each module. 

John Draper described CAP'N Soft- 
ware's Version 1.7 FORTH for the ^ple; 



the system was up and running for 
demonstration. Ragsdale notified us 
that Coirputer magazine wants articles 
for a FORTH issue next year and that 
Byte's August issue will have a Robert 
Tinney cover displaying three blocks in 
a field of stars, each block containing 
a word (2*, DUP, + ) and threaded 
together by a ribbon terminating in a 
space needle. 

Handouts included: Kim' s tool kit, 
Bill's Morse Code worksheet (a blank 
page ! ) , John ' s Version 1 . 7 brochure , 
and Benchmark by DRC for measuring 
FORTH execut ion speeds on CRAY-1 
through micros. Also, a floating point 
package by NHC, a paper on file word 
concepts by Jim Berkey and the EIomeBrew 
Computer Club 's newsletter by (ed.) 
Bill Reiling were available. 

;s Jay Mel v in 



NELP WANTED 

Full or Part Time 
MICROCOMPUTER 
R& DTechnician 
Jr. Engineer 



To assist in the integration, trouble- 
shooting and design of microcanputer 
systems for scientific and industrial 
applications. 

Programming interest a plus. 



FORTH, Inc. 



Contact: Gary Kravetz 
FXDRTH, Inc. 

2309 Pacific Coast Hwy. 
Hermosa Beach, CA 90254 
(213) 372-8493 
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FORTH Interest Group Meetings 



New York 
Various times 



Contact Tom Jung at 
(212) 746-4062. 



^3orthern California 

4th Saturday FIG Monthly fleeting, 

1:00 p.m., at Liberty 
House Department 
Store, Hayward, CA. 
FORML VVorkshop at 
10:00 a.m. 



Massachusetts 
3rid Wednesday 



San Diego 
Thursdays 



Seattle 
Various times 



Potomac 
Various times 



Texas 

Various times 



Arizona 
\^rious times 



Oregon 

Various times 



MMSFORTH Users 
Group, 7:00 p.m., 
Cochituate, MA. Call 
Dick Miller at (617) 
653-6136 for site. 



FIG Meeting, 12:00 
noon. Call Guy Kelly 
at (714) 268-3100 
X 4784 for site. 



Contact Chuck Pi i ske 
or Dwight Vandenburg 
at (206) 542-8370. 



Contact Paul van der 
Eijk at (703) 354- 
7443 or Joel Shprentz 
at (703) 437-9218. 



Contact Jeff Lewis at 
(713) 729-3320 or 
John Earls at (214) 
661-2928 or Dwayne 
Gustaus at ( 817 ) 
387-6976 . John 
Hastings (512) 
835-1918. 

Contact Dick Wilson 
at (602) 277-6611 
X 3257. 



Contact Ed Krammerer 
at (503) 644-2688. 



Detroit 
Various times 



Japan 

various times 



Contact Dean Vieau at 
(313) 493-5105. 



Contact Mr. Okada, 
President, ASR Corp. 
In t ' 1 , 3-15-8, 
Nishi-Shimbashi 
Minato-ku , Tokyo , 
Japan. 



Publisher's Note: 

Please se nd no te s 
about your meetings. 



( and reports) 



HELP WANTED 

BUSINESS SYSTEMS IN FORTH 

We need two good FORTH programmers. 

You should have solid FORTH experi- 
ence, a year or two, and be generally 
competent in Computer Science. 

We are bui Id ing an ex c i t i ng rang e 
of business appl ication systems using 
FORTH - the advantages are obvious 1 - 
and our approach is unique. We'll have 
a range of configurations - single and 
multi-processor, both Winchester and 
large fixed disks and color graphics 
screens. 

Ideally you* 11 live in Orange County 

- be attracted by a small, quality team 

- and like to grab your own projects 
with a strong sense of self managanent 

- we haven't got the time or the 
inclination to be overbearing. 

Please send brief description of 
your background bo: 

The Software Development Director 
4861 McKay Circle 
Anaheim, CA 92807 

and let us know why you think you'd like 
to work with us. 
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CALL FOR PAPERS 
FORMLCONFERENCE 

(FORTH Modification Laboratory) 

Papers are requested for a three day 
technical workshop to oe held November 
26-28, 1980 at the Asilomar Conference 
Grounds in Pacific Grove, California 
(on the Monterey Peninsula). The 
purpose of the workshop is to discuss 
advanced technical topics related to 
FORTH implementation, language and 
application . Papers on any of the 
following or related topics are 
requested for presentation and dis- 
cussion: 

1. Programming methodology 

problem analysis and design 
implementation style 
development team management 
documentation 
debugging 

2. Virtual machine implementation 

arithmetic 

address enlargenent 

position independent object 

code 
metaFORTH 

3. Concurrency 

resource management 
schedul ing 

intertask coranunication 
and control 

integrity, privacy and 
protection 

4. Language and compiler 

typing and generic operations 
data and control structures 
optimization 

5. Af^lications 

file systems 
string handling 
text editing 
graphics 

6 . Standard izat ion 

Review and discussion of 

79-STAND/VRD 
Input for the Standards Team 



FORML is an organization (sponsorea 
by the FORTH Interest Group) wh ich 
promotes the exchange of ideas on 
the use, modification and extension 
of the FORTH approach to systems 
development. Itiis will be an advanced 
technical workshop; no introductory 
tutorials will be held. 

Abstracts of papers must be received 
by October 1, 1980 for inclusion in the 
conference program. Complete papers 
must be received by November 1 , 1980 
to be included in the conf e rence 
proceedings. Send both abstracts and 
completed papers to: 

FORML Conference 
P. 0. Box 51351 
Palo Alto, CA 94303 

- - HELP WANTED 



TITLE: Product Support Programmer 

DiniES: Responsiole for maintaining 
existing list of software products, 
including the polyFORTH Operating 
System and Programming Language, file 
management opt ions , math opt ions and 
utilities and their documentation, 
and providing technical support to 
customers of these products. 

Requirements for candidates: 

1. Good familiarity with FORTH— preferably 
through one complete target- compiled 
appl ication, 

2. Good assembler level programming 
skills. 

3. Assembler level familiarity with the 
8080 and PDP/LSI-11 processors and 
preferably some of these: 8086, M&800, 
CDP1802, NOVA, IBM Series I, TI99C. 

4. Excellent communications skills — both 
oral and written; ability to work well 
with customers. 



5. Excellent organizational 
Contact 



ability. 



Elizabeth Rather 
FORTH, Inc. 

2309 Pacific Coast Bvy. 
Hemosa Beach, CA 90254 
(213) 372-8493 
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FORML CONFERENCE 



NATIONAL CONVENTION 



(PCRTH Modification Laboratory) 



FORTH Interest Group 



November 26-28 • 1980 at the Asilon\ar 
Conference Grounds, Pacific Beach, 
California. A three day advanced 
technical workshop for the discussion 
of topics related to FORTH implementa- 
tion, language and application. No 
introductory tutorials will be held. 

FORML is an organization (sponsored 
by the FORTH Interest Group) which 
prcMTotes the exchange of ideas on the 
use, modification and extension of the 
FORTH approach to systems development. 

Asilomar is a comfortable, rustic 
resort located on the Pacific Ocean 
near Monterey in Northern California. 
Attendees are urged to bring family 
members to Asilomar as they will enjoy 
the area and Thanksg i v ing d inner . 
Costs are very reasonable, especially 
for families, and include room (double 
occupancy) and meals. 



Attendees and/or 
participants 



Non-conference 
guest (wife 
and/or husband^ 
friend, and 
children 12 or 
over) 

Children 11 
or younger 



$100.00 (includes 
conference registra- 
tion and material s ) 



$ 75.00 



$ 50,00 



Send request for registration and 
list of guests by October 15th with a 
check to: 

FORML Conference 
P.O. Box 51351 
Palo Alto, CA 94303 



November 23, 1980 at the Villa 
Hotel, San Mateo, California, 8:30 a.m. 
- 4:30 p.m. for exhibits and papers; 
6:00 p.m. cocktails; 7:30 p.m. for 
dinner (with speaker). This one day 
convention will include presentations, 
workshops, hands-on equipment and a 
number of vendor exhibits. An evening 
dinner will include a talk by one of 
the foremost authorities on FORTH (more 
about the speaker in a later re- 
lease ) . 

Pre- registration for the convention 
is available for $4.00. 

Pre- registration for the dinner and 
speech is required by October 15th at 
$15.00. 

Vendors may contact FIG about 
the cost and availability of booth and 
table space. 

To pre-register or for more informa- 
tion write: 

FORTH Interest Groqp 

P. 0. Box 1105 

San Carlos, CA 94070 

Vendors may contact Roy Martens at 
(415) 962-8653 for details about 
exhibiting. 

Room arrangements can also be 
made through FIG. 



************FLASH LATE NEWS************ 

FIG NATIONAL CONVENTION BANQUET SPEAKER 

ALAN TAYLOR 
Author of The Taylor Report for Computer 
World. 30 years in computer field. 

*********HAKE YOUR RESERVATION********* 
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